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MODULE search ( ! Search ayers + for a string utility 
DENT = ‘v04-000', 
we = main 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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ie ALL RIGHTS RESERVED. 
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is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pompokat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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B08 ED: CLARET AI LEE TERR NG A A TLE Ns 
003 '++ 
003, FACILITY: SEARCH 
35 ABSTRACT: 
00 i This wereity program searchs a file or files for a specified 
38 string and lists all occurrences. 
3 i ENVIRONMENT : 
1 i VAX/VMS operating s system _unprivileged user mode utility, 
: § } operates at non-AST leve 
4 4 AUTHOR: Len Kawell, CREATION DATE: 22 Dec 1978 
i . 
$8 $ Modified by: 
48 8 : V03-004 CWH3004 CW Hobbs 9-Aug-1984 
49 9 : Change output formatting routines to support eight- 
? 39 bit characters. 
§ 26 : v03-003 AEWO001 Anne E. Warner 11-May-1984 
5 : Add support for search Lists. 
4 54 ! - remove related name block from RMS definitions. 
5 55 : - ace argument SCAN CONTEXT to LIBSFILE_SCAN for 
§ 28 ticky search Lis€s. 
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SEARCH 18-56 Sep-1 AX-11 Bliss-32 V4.0-7 Pa SEs 
vOe~000 =35p71982 99:59:98 = HONE Sh eSB Rtn 835° ai | ve 
3 38 ; 1} v03-002 CWHOO1S CW Hobbs 8-Sep-1982 ; 
; 26 } Enable /STATISTICS : 
; 6) 1 37 v03-001 — CW 22-Mar-1982 : 
; 6¢ ¢ 1! thange “URITEERR to SPuERE so that only one message is ; 
3 o : } printed when unable to write the output. | : 
; 665 §$ 1! vO2-013 CwHOO13 Cw Hobbs O-Feb-1982 : 
: 08 1! Add nambufs for output file so that the file name is ; 
3; 6 1! available for error messages. Change output segmenting $ 
; 4 0089 : } to avoid record too big errors. | : 
3 $3 Ba v02-012 — 0012 Cw Hobbs eb-1982 : 
) 2 O71 1! Use LIBSFILE_SCAN instead of SPARSE and SEARCH to : 
: Lf ih : perform like other DCL commands. ; 
: «66 Bare 1! v02-011 CWwHOO09 CW Hobbs 25-Jan-1982 : 
; 75 1! Make error messages for insufficient virtual memory 3 
F f bo58 : more meaningful. : 
; 0078 1! v02-010 CwH0008 CW Hobbs 18-Jan-1982 ; 
3 : se shared messages where possible, a message. F 
es st : U hared h ibl dd WRITEERR : 
ee - 3 0081 1! V02-009 CWHO007 CW Hobbs 14-Dec-1981 : 
; Sg aoe : Fix loop if no directory in resultant string for EXCLUDE. : 
; & 0084 1! v02-008 cun000s CW Hobbs 13-Dec-1981 3 
; 0085 1! Remove dummy routine. Do STRNLOG on /EXCLUDE file 3 
; & 0086 1! names. Correct problem with /WINDOW=0. Remove F 
; 44 sie $4 : } some code for testing. : 
; ww 0089 1! VO2-007 CWHO004 CW Hobbs 30-Nov-1981 : 
:; 690 0090 1! Speedups, make /STATISTICS a conditional assembly 3 
3 33 9d } option. Restructure for expression matches. : 
; 38 0095 1! V02-006 CWwHO002 CW Hobbs 28-0c t-1981 3 
; «94 0094 1! Change FORSCNV_IN_I to OTSSCVT_TI_L entry. Add more 3 
; 9 0095 1! error codes. Remove MBC from input F use process : 
; 9% 96 1 | defaults. Remove filename header from between windows and : 
s 97 s change window separator to ‘teeerren’, Put output record in : 
:; , : several segments if longer than ars of output file, also 3 
s WW zz check status of rms_put operation. é 
3 100 1 1: Make search-string input parameter a List, move match 3 
: 101 101 1: check to separate routine, add /MATCH qualifier to : 
. F 4 1 1: set sens match. : 
; 10 1 1! Redo w ndoulna. at vector of Ain : rerer than records. : 
3 104 1 1! Use locate mode exclus a7eh set S a on Sm, prev recs. F 
> 105 105 1 Replace /ADDITIONAL J 7PREVIOUS with /WINDOU qualifier. ; 
ee 1 1! Print filename only if /WINDOW= it specified. : 
; 10 1 . 4 Improve error messages, especiall /0 error Signal tng. ; 
; 108 1 1! Change truncate error to one per file, not one per recor F 
: 109 1 7! Other ney ual rreses 3 
3; 110 1 1: - exact case matches 3 
ae bb 1 ' 7 ZEXCLUDE - o t List of files from searc : 
3 146 1 1! /FORMAT - convert control chars unless disabled : 
- oT 1 1! /HEADING - give control of printing of heading 3 
3 (1946 1 1! /LOG = signal filenames searched : 


<u 


vo4=000 ie btort ope 1:38 8s EON S2°SReSsearcn:o3es4 ee 
= print source Line #'s 


UMBERS 
/RERA INING = print from match t9 £0 
/STATISTICS = print some access information 


V02-005 CwWwHO001 CW Hobbs 24-Aug-1981 
Define external ee nes as general addr es ing mode. 
Display the fil espec header whenever a List o 
input A A. Ss given. 


v004 TMHO004 Tim Halvorsen 29-Jun-1981 
Increase size of input buffer. Open input file for 
shared read/write access. Do not display the filespec 
header if non-wild search. 


vO2-003 CNHO032 Chris Hume 16-Apr-1980 
Added windowing and (new) CLI callback. 


v02-002 awell 14-Mar-1980 
vencral see Res and added command Line parameters. 


v02-001 B.L. Schreiber 18-May-1979 
Ada LIBSSIGNAL to external routines. 
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ie 

: 140 133 1! $ 
i 14) 140 1 j Include tiles : 
: 128 148 1 LIBRARY | ; 
> «1446 145 1 "SYSSLIBRARY:STARLET'; ! VAX/VMS common definitions ; 
1 1g a 
3 147 146 i Define the compile-time switches used for conditional assemblies | 3 
: 149 148 1 LITERAL : 
; : ? 13 : switch statistics = 1; ' Include the /STATISTICS code ; 
3 : ° Structure declarations : 
: 13 $ STRUCTURE ; 
.* $ bi8e 1 patarhonster 1, 0, P, S, E; N, BS) = ; 
: 12 138 1 N*BS 

: 138 4 } ((bblockvector+1*BS)+0)<P,S,E>; 

: 160 159 1! Macros 

3; 6161 160 1! 

: 183 EE Bam 

> 164 o168 1 dsc_longi = 0,0,32.0 %, ! First Longuere of descriptor 

3 193 She: ! dsc_dynam = dsc$k_class_d*24 OR dsc$k_dtype_t*16 2%, ! dynamic desc 

; + +4 B1e8 : Define shorthand for a single initialized dynamic string desc 

: 169 m 0168 1 dyn_str_desc = BLOCK Cdsc$k_d_bln,BYTE) 

: 170 m™ 0169 1 PRESET(” Cdsc$b_class] = dsc$k_class_d 

: 4 9170 dsc$b-dtype] = dsc$k-dtype-t) 2%, 

; 178 O17 : Define macro for a single initialized static string desc. 

: 175 m0174 1 stat_str_desc (L, A) = BLOCK Cdsc$k_s_bln, BYTE] 

: 176 iI 3102 1 PRESET( Cdsc$b_class = dsc$k_class_s, 

: 177 ™ 176 1 dsc$b_dtype = dsc$k_dtype_t. 

; 178 m0177 #1 dsc$w_length]). = (L), 

3 +44 178 : dsc$a_pointer] = (A) ) %, 

F 13) 189 \ : Define different psects for initialized and demand-zero storage. 

: 188 1 : 1 OWN_CRF = PSECT OWN = SOWNS_CRF (WRITE); OWN =‘, 

3 I ; i. OWN-DZRO = PSECT OWN = SOWNS"DZRO (WRITE); OWN 2; 

: 1 5 Define special Linkages for very frequently called routines 

51 18? LINKAGE 

; 189 1 1 JSB_FORACTDUM = JSB (REGISTER=2 WS S{STERSS RES] STEREO? 

> 190 189 1 : NOPRESERVE(2,3,4,5)_ PRESERVE(6,7,8,9) NOTUSED(10,11), 

> 191 190 1 JSB_FORACTTEX = JSB (REGISTER=4 REG STER=5 .REGISTER=2) 

: 198 191 1 : NOPR Rye 4,5)_ _ PRESERVE(6,7,8,9) NOTUSED(10,11), 

: 19 198 1 JSB_FORPUT = JSB (REGISTER= REG|STER=3 REGISTER=4) 

> 19% 193 1 : PRESERVE ( 4) | PRESERVE(S,6,7,8.9) NOTUSED(10,11), 

: 195 194 1 JSB_GETNEXREC = JSB (REGISTER= REGISTER=4) 

: 196 195 1 : NOPRESERVE (2) NOTUSED(5,6,7,8,9,10,11), 


—>—2 2 _» 


Table of contents 
FORWARD ROUTINE 
main, 


pepe iololojiololelo) 


search_one_file 
get_next_record 
advance_window 
Std_seer ent ile 


rmrorrorory 


PIMNMPININ 2 3 IQ OOO 
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srh$put_output 


Equated symbols 
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file 

exclude_file : NOVALUE, 
Locate_fTlename, 

locate_version, 


: JSB_GETNEXREC, 
: NOVALUE, 

: NOVALUE, 

: JSB_STDMAT, 


: NOVALUE JSB_UPCASE, 
: NOVALUE 188 FORPUT, 


format~ection_text : JSB_FORACTTEX, 
format_action_dump : JSB_FORACTDUM, 


: NOVALUE JSB_PUTOUT; 


External references 
EXTERNAL ROUTINE 
ibs 


: addressing_mode(general) 
addressing_mode(general) 
addressing_mode(general) 
: addressing_mode(general) 
: addressing_mode(general) 
: addressing_mode(general) 
: addressing_mode(general) 
: addressing_mode(general) 
: addressing_mode(general) 
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16-Sep-1984 02:20: AX-11 Bliss-32 V4.0-74 
12-808-1382 96:39:93 YOTIL 2. SRCJSEARCH.B32; 
= JSB (REGISTER=2 REGJSTER=3) 
: NOPRESERVE (2, 3) NOTUSED(6,7,8,9,10,11), 
— (REGISTER SG AREG|STERS , NOTUSED(9,10,11) 
JSB (REGISTER=1 REGISTER=2, REGISTERS) , 
: NOPRESERVE(2, 3) NOTUSED(4,5,6,7,8,9,10,11); 
Main entry 
: NOVALUE, Action routine for file found 
: NOVALUE, = . ile error 


Soe exclude List 

Verify that filename is OK 
Find filename field in name 
Find version in filename 
Compare filename strings 
Open and search a file 

Read a record from the file 
Scroll the viewing window 
Standard string matches 

See if search string present 
Signal file 1/0 error 
Convert string to uppercase 
Format and pu to output 
/FORMAT=TEX 

/FORMAT=DUMP & NONULLS 
Put record to output file 


Wildcard file searches 
pozwere table lookup 

Put stat to sys$Soutput 
Get qualifier value 

Get ge sy presence 
ASCII decimal to Longword 
Allocate pynene String 
Copy any class string 
Gets memory 


Routine value of TRUE 
Routine value of Hae 
$s 


s 
Max s rings in STRING List 
Max files in EXCLUDE List 
Input buffer size 

Default format 

Pass all eperacters 
Reformat, flag 8 bit chars 


Sm 
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Vergep-i9be 18:35:58 — fOTTUd2°saeiseantnso3oe4 a0e 35 
form_nonulls s 3 ! Like DUMP, but no nulls 
— be, ! Facility-specific message definitions 


srh$_nullfile, 
srh$_rfaerr, 
srh$_truncate, 
srh$_wdw_maxprev, 
srh$_wdw_maxprm; 


! Shared message definitions 

SSHR_MSGDEF 

Tsrh, 215, local, 
(badlogic, error), 
pyeeee uve, error) 
Cinsvirmem, errors, 
(openin, warning), 
(openout, error), 
(readerr, warning) 
(writeerr, severe)); 


vuvVVUUU 


OWN srerege. initialized and demand-zero variables are defined 
in separate groups so that the Linker will give us a demand-zero 
section rather than storing a bunch of zeroes in the image file 


OWN_DZRO 
exp_name : VECTOR (nam$c_maxrss, BYTE), 
res_name : VECTOR (nam$c_maxrss, BYTE), 
BYTE), 
BYTE); 


RMS expanded name buffer 
RMS result name buffer 
RMS expanded name buffer 


Out_exp_nam : VECTOR [nam$c_maxrss, 
RMS result name buffer 


out_res_nam : VECTOR [nam$c_maxrss, 


CRF 
“string_desc : dyn_str_desc, 
mod_desc : on str_desc, 
tmp_desc : staf_st?_desc(0, 0), 


nam_block =: SNAM ( 


Input search string desc 
Modifier string descriptor 
Kosher desc for misc fcns 


woowowvowvowvovovd thet try te eet SRR PP RNR P OS Ae PEAS OUVIUVIMNUVINIVI 
SSUES aS REUNION UNIO D0 Serr ONO > OOo ood 


ee SS en en eS SS SY 


File name block 
= res_name, Result name addr 
= nam$c_maxrss, 
ESA = exp_name, pupences name addr 
= nam$c_maxrss), xpan 


' 

i 

Result name size 

i name size 
fab : SFAB( ; Input “Ste FAB 

i 

: 


Meu 


vuvvyD vUUYU 


OP = NAM en by name block 

SHR = (GEf,PUT,UPI), Allow other readers/writers 
DNA = UPLIT BYfEC'#.**),! Default file spec. 

DNS = 5, (DNM peone t like *'s) 

NAM = nam_block), Name block 


se 


i _  _ 
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1b-Sep-1 4 02:20: AX-11 Bliss-32 V4.0-74 
1 30071382 99:59:38 UTIL 2 PSR iseARtH 63004 

rab : SRAB( ! Input file RAB 

MBF = 3 ! Multi-buffer count 

RAC = SéQ, ! Will also use RFA as needed 

ROP = (RAH,LOC), ! Read-ahead, locate mode 

USZ = io_buff_sz, ' User buffer size 

FAB = fab), ' ddr 
Out_nam_blk : SNAM ( ' File name block 

RSA = out_res_nam, ! Result name addr 

RSS = nam$c_maxrss, ! Result name size 

ESA = out_exp_nam, ! Expanded name addr 

ESS = nam$c_maxrss), ! Expanded name size 
out fab : SFAB( ' Output f AB 

RAT = CR, ! Record attributes 

sy = UPLIT BYTEC'SEARCH.LIS'), ! Default file spec. 

= ° 

NAM = out_nam_blk), ! Name block 
outrab : SRAB( ! Output file RAB 

ROP = WBH ' Write-behind 

FAB = outfab), i FAB addr 


' 
Build a keyword 


format_keytbl 


ONOAOUS WMO 
Hhnnnnnnun 


i 
Build a keyword 
match_keytbl 


ONOULS WIN 


table for the FORMAT qualifier 
: VECTOR C9, LONG] PRESET ( 


' Entries + va 
UPLIT BYTE (ZASCIC "TEXT'), 


lues 
! String for rex 


1 

' 
form_text ' Value for TE 
UPLIT BYTE (ZASCIC "PASSALL"), i String 
form_passall ' Value 
UPLIT BYTE (ZASCIC "DUMP"), i String 
form ome ' Value 
UPLIT BYTE (ZASCIC "NONULLS"), '! String 
form_nonulls), ! Value 


table for the MATCH qualifier 
: VECTOR C9, LONG] PRESET ( 


' Entries + values 
UPLIT BYTE (ZASCIC ‘OR'), i String for OR 


' Value for OR 


1 
' 
' 
UPLIT BYTE (ZASCIC "NOR'), i String 
' Value 
PLIT BYTE (ZASCIC AND"), String 
alue 
yPLIT BYTE (ZASCIC "NAND'), i String 
3 ! Value 


Now define all the non-initialized variables 


OWN_DZRO 
wdw_pre_recs, 
wdw_sub_recs, 
wdw_pre_cntr, 
wdw_sub_cntr, 
wdw_pre buff, 
cnt_infile, 
cnt_srhstr, 


Previous records requested 
Subsequent records requested 
Previous records available 
Subsequent records to List 
Current io by f index 

Actual # of input files 
Actual # of search strings 
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infile_desc : 
srhstr_desc : 
exclude_desc 
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: 


cnt_exclude, Actual # of exclude evies 
max_rec : VOLATILE, ' Actual output max rec size 
format, ! Code for output format 
fil_totmat, ' Total matches in one file 
fil -linenum, ' Total Lines in gne file 
_file.open : BYTE, ! An output file is open 
out_printing : BYTE, ! Matched records to output 
wdw previous : BYTE, ! RFA window ng gsi tve 
wdw_zero : BYTE, ! We have /WINDOW= 
wdw frame : BYTE, ! Frame discont wave windows 
wdw_ovfl : BYTE, ! Window discont gu ty flag 
Qua_exact : BYTE, } pact po match flag 
qua_log : BYTE, : Log ilenames searched 
qua_numbers : BYTE, ' Output Line number 
qua_heading : BYTE, ! Display names of files 
file : BYTE, ! Just opened a new file 
found_file BYTE, ! Found at least one file flag 
found_any : BYTE, ! Any matches found boolean 
l_found : BYTE, ! Match found in this file 
mat_and : BYTE, ! Match is AND if true, OR if false 
mat_negate : BYTE, ! Turns above to NAND and NOR 
rfa_vec : REF bblockvector C,rab$s_rfaj,! RFA's for previous records 
output_buff : REF VECTOR C,BYTEI, ! For reformatting 


: : Array of input filenames 
bblockvector Cmax_infiles, dsc$k_d_binJ, 

: T ray of search strings 
bblockvector Cmax_srhstr, dsc$k_d_blnJ, 

: tT ray of exclude filenames 
bblockvector Cmax_exclude, dsc$k_d_binJ; 


ZIF switch_statistics 
XTHEN 
OWN_DZRO 


define the block for the GETJPI1 for statistics 
qua_statistics, ! Give statistics 
stat_totchr, ' Total characters in ail files 


stat_totrec, ' Total records in ali files 
stat_totfil, ' Total files searched 
stat_totmat, ' Total matches found 
stat_totput Total records put to output 


stat_ pi_bufio, SGETJPI deposits them here 
stat_ pi_cputin, 
stat_jpi_dirio 


tat~jpi_pagef(ts, 
To, 


s 
stat_bu Saved from startup getjpi 
stat cpu im, 

stat_dirio 

stat_pagef(ts 


stat ~starttime : VECTOR (2, LONG); 


OWN_CRF 
stat_jpi_block : VECTOR (13, LONG) INITIAL ( 
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SEARCH 16- Sep-1984 02:20: AX-11 Bliss- 4.0-7 
yoan000 1 ty 7 9¢:59:98 UTIL32.SRC sé BARC W830: 
> 425 424 1 wise A aS OR 4) stat_ P| “eput a. 
i 496 425 1 (JPIS“CPUTIM“16 OR 45, stat. putin, 6, 
; 4 4 § 1 (JPI$_DIRI0*16 of 4), 
: 4 § ag? | (IPIS_PAGEFLTS* 6 OR 4), state P —sopetits: 0 0, 
; 430 4 : 1 XF1 ! switch statistics — 
> 431 4350 1 
3 § ¢ 431 1 BIND 
s 6 4 § 1 stars_30 = UPLIT BYTE (‘eeeeerereeereererererereeeenen'), 
> 434 4 1 null str = ZASCID ''; ! The null string 
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ROUTINE main = 


'e4¢ 
' Functional description 


This routine is the transfer point and central loop for the 
bth It retrieves filename(s), search string(s) and qualifiers 
from DCL, and looks up the files and calls the search routines. 
Calling sequence 
main () 
Input parameters 
none 
Routine value 


Most severe error encountered during processing or SS$_NORMAL 


LOCAL 


i Obtain memory for the input buffer and the output buffer 
! Worst case size of output buffer is 6*input + 8 (when full 
Length input is all -1's, /FORM=DUMP/NUMBERS) 


out_buf fer : BLOCK Cio_buff_sz*6+8 grre2. ! For reformatting 
inp_buffer : BLOCK Cio-buffisz, BYTE); i Input buffer 


LOCAL 
wdw_l, ! Flag that first window parm 
wdw_2, ' Flag that ‘ window parameters 
window_1, ! Value of window parm 1 
wirdow_2, ! Value of window parm 2 
status, ' Error status 
keyval, ! Will receive keyword value 
scan_context; ! Sticky context argument for LIBSFILE_SCAN 
BIND 
window_str = ZASCID ‘WINDOW’, ! Qualifier keywords 
string_str = ZASCID ‘STRING’, 
source_str = ZASCID ‘SOURCE'; 
' 
Get initial run statistics 
ZIF switch_statistics 
THEN 
if que_stecistics = cli$present(ZASCID "STATISTICS*) 
BEGIN 


IF NOT (status = SGETJPI (CITMLST=stat_jpi_block)) 
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1e8eb- 1984 18:55:55 LOT TUs2°SReSseantncgae, 9° (3) 
j RETURN .status; 
IF NOT (status = SGETTIM (TIMADR=stat_starttime)) 
RETURN .status; 
stat_bufio = .stat_jpi_bufio; ! copy from the JPI return variables 
Stet_cout ie = .stat_j]pi_cputim; 
stat_dirio = .stat_jpi_dirio; 
stat_pagefilts = .stat_jpi_pageflts; 
Pie ae: 
Set some pointers to the local data for this procedure 
rab Crab$l_ubf] = inp_buffer; ! Address of user buffer 
output_buff = out_buffer; ! Buffer for reformatting 
' 
Get the simple qualifiers 
qua_exact = cli$present(ZASCID ‘EXACT'); ! Want lower case matches? 
qua_log = cli$presentiZASCID ‘LOG') ! Show filenames? 
qua_numbers = cli$present(ZASCID 'NUMBERS'); | Want Line numbers? 
qua_heading = cli$present(ZASCID ‘HEADING'); ! Print file headings? 
] 
Get the window size parameters 
if aa = cli$get_value(window_str, mod_desc) 
BEGIN 
IF NOT ots$cvt_ti_l(mod_desc ,window_1) 
THEN 
4 BEGIN 
4 SIGNAL (srh$_badvalue, 1, mod desc); 
4 AN (srh$_badvalue OR %X'10000006"); ! Inhibit DCL PUTMSG 
3 IF «window. 1 LSS 0 ! BLISS will optimize these together 
4 BEGIN 
4 SIGNAL (srh$_badvalue, 1, mod desc); 
4 RETURN (srh$_badvalue OR %x' 10000006"); 
END; 
: Try to get the second window parameter 
if wdw_2 = cli$get_value(window_str, mod_desc) 
BEGIN 
ene ots$cvt_ti_l(mod_desc, window_2) 
d Of CNAL (srh$_badvalue, 1, mod_desc) 
sr advalue, 1, m : 
4 RETURN (srh$_badvalue OR 1x" 10000000") ; 
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v5e~000 1 730071382 99:59:32 UTIL32.SRCISEARCH.B32; a Ry voe 
; 0 END; 

: i gw incens LSS 0 ! BLISS will optimize these together 

g BEGIN 

22 SIGNAL (srh$_badvalue, 1, mod gee) i 

35 RETURN (srh$_badvalue OR %x'10000006"); 

2$ END; 

58 

59 


ol cli$get_value(window_str, mod_desc) ! Make sure no more in List. 
RETURN srh$_wdw_maxprm; 


! Set the appropriate values for previous recs and subsequent records. We 
assume that WDW_PRE_RECS and WDOW_SUB_RECS are initially zero. 


tmp; 
tmp = .window_1 -1; ! Count the matched Line as one of them 
wdw_pre_recs = .tmp / 2; 

yee Om rees = .tmp - .wdw_pre_recs; 


C9 C9 C9 09 09 09 SII NI NSN NN NP PPA AAA AAA MMIII 


000d dc 


60 

2 

63 

és 

66 IF .wdw_1 ! If /NOWINDOW we have nothing to do. 
67 THEN 

68 BEGIN 

69 IF .wdw_2 ! We have /WINDOW=(pre,sub) format. 
70 THEN 

71 BEGIN 

ie: wdw_pre_recs = .window_1; 

e udu sub_recs = ,window_2; 

75 ELSE ! We have /WINDOW=total format 
6 BEGIN 

7 IF .window_1 EQL 0 

78 THEN 

79 wdw_zero = 1 ! Set flag for /WINDOW=0 option 
80 ELSE 

81 BEGIN é 

Se LOCAL ! Help BLISS optimize 

84 

85 

86 

87 

88 
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iF out_file_open = cli$get_value(ZASCID ‘OUTPUT’, mod_desc) 
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5 END; 
89 5 END; 
590 5 
591 5 IF (.wdw_pre_recs GTR 0) 
236 5 OR (.wdw_sub_recs GTR 0) 
2 5 THEN 
me 2 wdw_frame = true; ! Don't say ‘‘eerreeeeeeeenee’’ for /WINDOW=1 
536 ; Fr £* arenenecmner Te *REMAINING' ) ' Do we want match to end of file? 
558 ; wdw_sub_recs = 2°31 - 1; ! Set to something akin to infinity 
600 5 : 
601 5 ! Open the output file 
O06 : 
60 
604 
806 


BEGIN 
outfab Cfab$b_fns] = .mod_desc (dsc$w_length); 
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: 607 605 3 outfab Cfab$l_fna] = .mod desc Cdsc$a_pointer]; 

: 608 606 IF NOT (status = SCREATECFAB = out fabs 

: gr 608 3 RETURN file_error (srh$_openout,.status,outfab,.outfab [fab$l_stv]); 
; ei $4 4 Hf ot (status = SCONNECT(RAB = outrab)) 

: gi8 611 RETURN file_error {srhS gpenout, .status.outfab, .cutrad CrabSi_stv2); 
> 614 pe18 max_rec = .outfab Cfab$w_mrsJ; 

3 $19 061 IF .max_rec EQL 0 THEN max_rec = 2°15-1; 

: Bi? 618 _ 

; ei8 Oetg out_printing = (NOT .wdw zero) AND .out_file_open; ! Do we print matched Lines? 
; 620 0618 2! 

: ? 1 +384 Get the /MATCH qualifier value, set the bit vector 

: 6 i 0621 cli$get_value(%ASCID "MATCH’, string_desc); ! Get the strin 

> 624 06 ¢ upcase(.string_desc Cdsc$w_length], .string_desc Cdsc$a_pointerJ, 

3 629 06 -string_desc Cdsc$a_pointerJ); 

; ? § Be : ad (status = LibSlookup_key (string_desc, match_keytbl, keyval)) 

: ° 3 0636 SIGNAL_STOP (srh$_badmatch, 0, .status, 1, string_desc); 

: 656 o658 CASE .keyval FROM 0 TO 3 OF 

; 631 e484 SET 

; Org 0630 [0] : 3 ! "OR' = No action, both zero already 
s 62 0631 1] : mat_negate = true; ! "NOR' = mat_and is already zero 

> 634 peas $3 : mat_and = true; ! "AND' = mat_negate is already zero 

; 635 063 J BEGIN ! "NAND' = We have to set them both 

: 636 0634 mat_and = true; 

3 Gor 0635 mat_negate = true; 

; 638 0636 END; 

; 639 0637 TES; 

; 640 0638 

; 641 0639 : ; 

; rr 0640 ! If there are no previous records we can set for sequential only 

; 64 0641 : 

: 644 064 

3; 645 064 IF .wdw_pre_recs EQL 0 

; 646 0644 

; 647 0645 fab Cfab$v_sqo] = true 

; 648 064 ELSE 

: rts Been — ; : 

: revious = true; 

: 651 0669 ee See 

3 $36 3939 ; Obtain memory for the vector of RFA's 

: O28 26 4 if NOT (status = LibSget_vm(ZREF((.wdw_pre_recs + 1)*rab$s_rfa), rfa_vec)) 
: 656 54 SIGNAL_STOP (srh$_wdw_maxprev, 0, .status); ! Buffer max exceeded. 
: 657 55 END; 

; 658 2$ 

3; 659 5 : 

3 o99 28 ; Get the /FORMAT qualifier value, set the variable 

; 666 660 cli$get_value(ZASCID ‘FORMAT’, string_desc); ! Get the strin 

; 66 1 upcase(.string_desc Cdsc$w_length], .string_desc Cdsc$a_pointerJ, 


013 mh 
sti HECRESHOE GODS WHR AMEND Pm 


> 664 66 -string_desc Cdsc$a_pointer)); 

: 09? se a (status = LibSlookup_key (stting.detc, format. kéytbl, format)) 

3 e8? Ree? SIGNAL_STOP (srh$_badform, 0, .status, 1, string_desc); 

: 669 geo 5 

: of 738 DCL parameter P1, SOURCE 

: 67 $90 i Get all the input file names so that we will know if a List is specified. 

: of? p00) Max_infiles is large enough so that is is IMPOSSIBLE to overflow 

: 675 Oer§ WHILE -cnt_infile LSS max_infiles 

; 67 74 dO 

s O67 0675 BEGIN 

: Of gers infile_desc C.cnt_infile, dsc_longl] = dsc_dynam; ! Init to dynamic desc 

; 67 677 & IF NOT (status = cli$get_value(source_str, 

; 680 gore 4 infile_desc C.cnt_infile, dsc$w_length]) ) 

; 681 679 THEN 

3 oes 0680 EXITLOOP; 

; 68 0681 cnt_infile = .cnt_infile+1; 

> 684 et) END; 

. ae 

3 14 eH The command requires SOURCE, but just in case someone mungs the CLD file 

: ret pes? if .cnt_infile LEQ 0 

: 691 0689 RETURN srh$_nofile; 

Be Be 

; 69% 069¢ i DCL parameter P2, STRING 

; 6% 0694 i Get the all the search string entries 

: 044 Be32 Max_srhstr is large enough so that is is IMPOSSIBLE to overflow 

: 699 069 WHILE .cnt_srhstr LSS max_srhstr 

: 700 0698 dO 

: 701 99 BEGIN 

; re 4 IF NOT (status = cli$get_value(string_str, string_desc)) 

. 2 701 THEN 

3; fr 7 ; EXITLOOP; 

3; 705 tA : 

3 $ . : : Copy or upcase the search string 

; A 0706 srhstr_desc C.cnt_srhstr, dsc_long1] = dsc_dynam; ! Init to dynamic desc 

: 710 708 IF .qua_exact THEN ! Copy to Soper loser array 

s vi 7 strScopy_dx (srhstr_desc pacngasrhste Gpete_sengte e 

3 ng ny string-desc Cdsc$u_length)) 

: 714 at} 4 BEGIN ' Upcase into the descriptor array 

s 7s 715 4 str$geti_dx (string_desc (dsc$w_length], ! Allocate Destination String 

3 rg 714 & srhstr_desc C.cnt_Srhstr,dsc$w_length]); 

3 7 715 4 upcase( ! Uppercase search string 

3 at at 4 ssrhetr desc -cnt_srhstr, gocdu,tongen - .! Length of source 

3; 717 & «string desc [dsc$a_pointer], ! Source addr 

; 720 718 4 -srhstr_desc C.cnt_Srhstr, dsc$a_pointer]); ! Destination addr 
| 
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END; 20 
00 


cnt_srhstr = .cnt_srhstr+1; 

END; 

; 

The command requires STRING, but just in case someone changes the CLD file 
if -cnt_srhstr LEQ 0 

RETURN srh$_nostring; 


! 
DCL qualifier /EXCLUDE 
i Get the all the exclude filenames 
Max_exclude is large enough so that is is IMPOSSIBLE to overflow 


WHILE -cnt_exclude LSS max_exclude | 
| 
| 
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T 
BEGIN 
LOCAL 
buf : VECTOR ary perres, eves. 
inter_desc : k Ce. 8 ! Intermediate name 
result-desc : BLOCK C8, art05; | 
: & “es (status = cli$get_value(ZASCID ‘EXCLUDE’, string_desc)) | 
P38 EXITLOOP; 
ie} : Don't let device and directory sneak in with a logical name | 
Fag 5 CHSMOVE (8, string_desc, inter_desc); ! Start with the given name 
eee é laa (4; tmp_desSc, result_deésc); ! Static string desc info 
P38 54 4 BEGIN 
75 55 4 result_desc tascsar Length) = nam$c_maxrss; 
758 56 4 result_desc (Cdsc$a 1e° inter] = buf; 
759 57 4 status = $trnlog (Tognam = inter desc, rsllen = result_desc, rslbuf = result_desc); 
760 58 4 IF NOT .status 
761 59 4 THEN 
76 60 4 SIGNAL_STOP (.status); 
76 61 4 CHSMOVE (8, result desc, inter desc); ! Ready to translate again 
764 762 4 END 
765 763 UNTIL .status EQL ss$_notran; | 
76 76 ! 
7 i Make sure that the filename has no device or directory. Allow for 
’ H iS alternate directory syntax of <dir> 
771 7 if CHSFIND_CH(. result desc Cdsc$w_length) 
77 7 esult_desc [dsc$a_ ointers. *:") NEQ 0 
77 77 OR CHSFIND_CH(. -resul desc dsciv- ength) 
774 77 “desc Cdsc$a_ ointerd, *]') NEQ 0 
775 77 OR CHSFIND_CH(. “result” “desc Cdsc$w_length) 
77 774 cresult “desc Cdsc$a “pointerd, *>") NEQ 0 
77 775 THEN | 
| 
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SIGNAL _STOP (srh$_badexcl,1,result_desc); ! Scream and shout 


! Copy, upcase and validate the exclude filename 

exc lude_desc C.cnt_exclude, dsc_longl] = dsc_dynam; ! Init to dynamic desc 
validate_exclude_file (result_désc,exclude_ desc C.cnt_exclude, dsc$w_length]); 
Ent onc lide = .cnt_exclude+1; 
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2 785 : 

: f 9 f § Search the input files 

; 791 7 leant file = false; ! Nothing found yet 

; 79 7 found_ ma Mel fal e; 

3; 7 Fcen.con ext = ! Sticky context argument must be zero 
; 794 ? INCR FROM 0 f0 .cnt_infile-1 Try all g out 

: 795 f § accin file spec. 

3 438 734 fab pfebsttnal s = .infile_desc f -ifx, dsc$a_ potaterzs ! Set none addr 
; ree 5 fab Lfab$b_fns intite: “desc L.ifx, dsc$w_ Tength; i Set size 
; 799 7 LibSfile_scan (fab; o full wildcard scan 
; 800 7 scan_success, i 43 here on success 

3 1 re scan_failure ! Go here on failure 

; o¢ 7 scan_ “contexts; i Sticky context argument 
3 it is. Cfab$l_dna] = 0; ! Allow sticky type 
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3 L § ZIF switch statistics 
3 4 4TH N 
: % 5 Display the statistics if desired. 
: 811 5 if .qua_statistics 
3 \¢ 8 THEN 
; #8 BEGIN 
: 14 10 BUILTIN 
; 815 11 3 
; 18 \§ LOCAL 
3 4 O84 qyedt ine : VECTOR C2, LONG], 
3 m, 
3 19 15 tim_buf : VECTOR (16, BYTE], 
3 5 Y 8318 1. desc : VECTOR (2, LONG), 
3 stat, 
: : ¢ Sais out_buf : VECTOR (80,BYTE); 
; 8 4 o8 9 4 IF NOT (stat = $GETJPI (ITMLST=stat_jpi_block)) 
: : $ $e ¢ RETURN .stat; 
; 828 0824 re desc Cdsc$a_pointer] = out_buf; 
; : % $e 5 LibSput_output (Aull_str); 
; oe) 08 : tmp_desc Cdsc$w bongth) = 80; 
3 = P 0828 4 If NOT (stat = SFAOC ZASCID ‘Files searched: '10UL Buffered 1/0 count:!10UL', 
; S37 0880 4 tmp_desc, tmp_desc, .stat_totfil, .stat_jpi_bufio-.stat_bufio)) 
: 835 831 RETURN .stat; ! Signal the error 
3 te a36 LibSput_output (tmp_desc); 
: 838 0834 tmp_desc Cdsc$w_length] = 80; 
; 839 Pp 0835 4 IF Rot (stat = SFAOt XASCID ‘Records searched: '10UL Direct 1/0 count: !10UL', 
; rey te 4 tmp_desc, tmp_desc, .stat_totrec, .stat_jpi_dirio-.stat_dirio)) 
; Bee 0838 RETURN .stat; ! Signal the error 
3 i 44 Lib$Sput_output (tmp_desc); 
: 5 841 tmp_desc Cdsc$w Length) = 80; 
3 6 P ote 4 IF ROT (stat = SFAOt ZASCID ‘Characters searched: 'T0UL Page faults: '10UL", 
3 : sez & a tmp_desc, tmp_desc, .stat_totchr, .stat_jpi_pageflts-.stat_pageflts)) 
; 9 rH RETURN .stat; ! Signal the error 
3 39 $ LibSput_output (tmp_desc); 
; 36 Bs paper Hye ~ Ang uti ' get the elapsed CPU time 
3 m= .s cputia-. 3 ! 
: 854 P Bey 4 IF NOT (stat : att ZASCID "Records matched: '10UL Elapsed CPU time:!3UL !22L:!22L:!22L.!22 
; 855 Pp 4 tmp dess tm $$ -Stat_totmat, 
3 28 P 26 & (.tim/( 2607 bs 4)) : days 
: 5 p 4 (.tim/(100*60*60)) MOD 24, ' hours 
3 28 P 0854 4 (,.tim/(100*60)) MOD 60, ' minutes 
; «85 P 2 4 (.tim/100) MOD 60, } seconds 
: : 28 4 renee tim MOD 100)) ' hundredths of seconds 
; 2 58 | RETURN .stat; ! Signal the error 
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; 863 0859 3 Lib$Sput_output (tmp_desc); 
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im_desc Fo] = = 16 3 

im ages’ f buf; 

fon’ stat = $cert IM (TIMADR=quadtime) ) 
ss sates } etpnet he on 

UBM ( uvadti stat 

IF NOT istat = SASCTIM HimLeneeia 

RETURN .stat; 


tmp_desc Cdsc$w bongth = 0; 
IF NOT (stat = SFAO ASCIS Lines printed: 
tmp_desc, tmp_desc, 


RETURN .stat; ; Signal the error 
LibSput ~output (tap. desc); 


t 
t 
] 
T 
S 


! ge the error 


END; 
ZFIl ! switch statistics 
IF .out_file_open 
SCLOSE(FAB = outfab); 


status = ss$_normal; 
Huet . found_any 


IF _vound. 1109 
SIGNAL (status = 
status = srh$_nofile; 


srh$_nomatches) 
ELSE 


RETURN .status; 
END; 
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-Stat_totput, tim_ desc)) 
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! ALL through writing 


! If no matches were found 
! set non-success status. 
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Ah Soo18 BYTE 0. 
some | 1 ‘oe RES_NAME 3 
1 BYTE : 
FF 5 “BYTE _ ; 
990 ' i ADDRESS EXP_NAME F 
0 8 LONG 3 
# C “WORD 3 : 
# WORD : 
gos its HR : 
itd 8 4c “LONG : 
005 BYTE ; 
SRE : 
3 ek “BYTE 0 ; 
0 00054 BYTE $ 
0 00055 "BYTE 0 ; 
00# 0056 “BYTE C23 ; 
90000000 005 LONG ; 
0000000 005¢ “LONG 0 : 
90000000 006 “LONG 0 : 
00 9000 0064 “LONG §6O : 
00000000 00068 “LONG 0 ; 
00000000 006¢ “LONG 0 : 
SCOOT SORTS re: BYTE 
Res ae Fe 7 
91000000 Soave "LONG 16777216 : 
90000000 00080 “LONG §6O : 
0000000 0084 “LONG 0 : 
00000000 00088 “LONG 60 : 
00 bou8E pore 
cs Mitt “BYTE 67 : 
000000 60094 bore 
095 "BYTE 0 : 
38 BYTE 
9 “BYTE : 
98 LONG 6 3 
9 LONG 3 
A [ADDRESS NAM_BLOCK : 
M : 


al 
- LONG 
-ADDRESS P.AAA 
AC -BYTE 
AD -BYTE 
A «WORD 
000099 + LONG 
B4 - WORD 
B6 -BYTE 
B -BYTE 
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-BYTE 


«LONG 
«ADDRESS OUTFAB 


; LONG 
FORMAT_KEYTBL: 
LONG 
“ADDRESS 
“LONG 
“ADDRESS 
LONG 
S ADDRESS 
LONG 
“ADDRESS 
MATCH_KEYTBL: 
S ADDRESS 
LONG 
“ADDRESS 
“ADDRESS 
“ADDRESS 


STAT_JPI_BLOCK: 
LONG 


o oOo oo 


P.AAC 
P.AAD 
P.AAE 
P.AAF 


ny — & 


ao w 


P.AAG 
P.AAH 
P.AAI 
P.AAJ 


Ww nw oS 


895300 
sADDRESS STAT JPI_BUFIO 


0 


LONG 675676 
“ADDRESS STAT_JPI_CPUTIM 


0 


LONG 67829 
-ADDRESS STAT _JPI_DIRIO 


»PSECT 


EXP_NAME : 


“BLK 
RES_NAME: 


-BLKB 
OUT_EXP_NAM: 

-BLKB 
OUT_RES_N 

B 

BLK 

00404 WOW_SUB_RECS: 


00408 WOW PRE_CNTR: 
0040C wOW_SUB_CNTR: 


0 


°LO 67764 
-ADDRESS STAT_JPI_PAGEFLTS 
“LONG 0, 0 


SOWNS_DZRO,NOEXE ,2 


uClUCUM 
“ wn 
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Sete Se Fe Se Se Se Be Ge Sete Se Se Ge Be Ge Se Ge 


04000 


1SSen-1984 99:30:05 


00410 WOW_PRE_BUFF: 
00414 CNT INFILE: 
00418 CNT_SRHSTR: 
-BL 
0041C CNT_EXCLUDE: 
-BLKB 
ane38 MAX_REC:.BLKB 
4 FORRAT -BLKB 
0428 FIL_TOTMAT: 
-BLKB 
0042¢ FIL LINER: 
00430 OUT_FILE OPEN: 
00431 ouT PRINTING: 
00432 wOW_PREVIOUS: 
00433 wOW_ZERO: 
00434 WOW FRAME: | 
00435 wDW_OVFL: 
00436 QUA_EXACT: 


00437 oe L0G: -BLKB 
004 NUMBER t 


BLK 
00439 QuA_WEADine, 
0043A NEW_FILE: 
BLK 
00438 FOUND FILE: 
0043C FOUND_ANY: 
-BLK 
0043D FIL_FOUND: 


-BLKB 
Q043E MAT_AND: .BLKB 
OO43F MAT =NEGATE : 


00440 RFA VEC: siBLKE 
00444 OUTPUT_ 


at 
00448 INFILE DESC: 

00888 SRHSTR_DESC 
OOCCB EXCLUDE_DESC: 


le ee ee ee ee ee ee ee ee ee ee ee)! ae ae ae 


1088 
1088 


BLKB 
01108 QUA_STATISTICS: 


0110C STAT_TOTCHR: 
-BLKB 


6 


AX-11 Bliss-32 V4.0-742 
UTIL352.SRCJSEARCH.B32; 1 
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ttf 


01110 
01114 
01118 
0111C 
01120 
01124 
01128 
0112¢ 
01130 
01134 
01138 
0113¢ 
01140 


ieee} 99:30:03 


STAT = TOTREC: 
STAT _rotfit: 
STAT_TOTAATS 
STAT_TOTPUT: 
STAT_JP1BUF 10: 
STAT_JP1_CPUTIM: 
STAT_JPI_DIRIO: 
STAT_JPI_PAGEFLT 
STAT_BUF IO: 
STAT_CPUTIM: 
STAT prio: 
STAT -PAGEFLTS: 
STAT _STARTTINE: 
-BLKB 


o fF fF FF SOS HF HF HF EE HE 


AX-11 Bliss-32 V4.0-74 
UTIL32.SRCJSEARCH.B32; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


Page F | 


en 


1 
1 

1 

1 

1 

1 

1 

1 

1 

2A 25 2A 00000 P.AAA: . ASCII \#.#\ : 1 

53 49 4C 2E 43 52 41 4 3 00003 P.AAB: .ASCII \SEARCH.LIS\ : 1 

54 58 45 54 04 90000 P.AAC: .ASCII <4>\TEXT\ : 1 

4c 4C 41 53 53 41 50 O07 00012 P.AAD: .ASCII <7>\PASSALL\ : 1 

50 4D 55 44 04 OOOIA P.AAE: .ASCII <4>\DUMP\ : 1 

53 4¢ 4C 55 4E 4F 4E 7 OO1F P.AAF: .ASCII <7>\NONULLS\ : 1 

52 4F 0027 P.AAG: .ASCII <2>\OR\ ; 1 

52 4F 4E& O QO2A P.AAH: . ASCII <3>\NOR\ ; 1 

44 4E 41 0 OO2E P.AAI: ASCII <3>\AND\ : 1 

44 4E 41 GE 04 00032 P.AAJ: . ASCII <4>\NAND\ ; 1 

2A 2A 2A 2A 2A 2A 2A 2A sh sh A 2A sh sh si Soe P.AAK: ASCII] \eeeeeerenrereeeereerereneeeeen\ : 1 
2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20058 aie : ' 
0058 P.AAM: .BLKB ; 1 

10 900 28 P.AAL: .LONG 17694720 : 1 

0000000" -ADDRESS P.AAM ; 1 

00 00 57 4F 44 4& 49 § P.AAO: .ASCII \wINDOQW\<0><0> : 1 

1060006, 00068 P.AAN: LONG 17694726 ; 

00 00 47 4& 49 52 +e 070 P-AAQ: TONG Nyse ; 

800 0000° 7 - ADDRES : 1 

00 00 45 43 52 55 19609 «AAS: ASCH ie : 

0 6 i, . ADDRESS ; 1 

00 00 53 43 49 54 53 49 54 41 ' ; 3 PAU: ASCH NSEATT sT1CS\<O><O> 3 
0 0000" 8 Hi -ADDRESS P.AAU 3 1 


renee 
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SEARCH 16-Sep-1984 02:20: AX-11 Bliss-32 V4.0-74 Page 27 
von 600 1e78Sb=1982 99:58:98 FANT Bk ass cBE MA O524e ee 
00 00 00 54 43 41 58 45 AGP. —_ ASCII \ERAET 50><0><0> ; 
4 0082 ar P.AAV: .LONG : 
0 0' 8 ° RESS P.AA : 
00 47 OF & Ba P.AAY: ASCII \LOG\<O> : | 
01 609 B&8 P.AAX: .LONG 176947 : 
0 * 0008 “ADDRESS P.AAY : | 
00 53 52 45 42 4D 35 CO P.ABA ASCII syREGRS\<0> 3 
4 $98 C8 P.AAZ LONG 1769472 : 
0000000' C ADDRESS P.ABA : 
00 47 4E 49 44 41 & 4 DO P.ABC ASCII AHEAD ING \<0> : 
00900000" lal ge 
00 00 OG 47 4E 49 4E 49 41 4D & ; 85 P.ABE: aia gipegeren OD : 
ore 444 BES P.ABD: es : 
9 000" O00F . om : 
00 00 54 55 50 54 4F OOOF4 P.ABG: .ASC Re : 
OF 0008 Bore P.ABF: TONG 3 
00000000" 00100 -ADDRE : 
00 00 00 48 43 54 41 4D 00104 P.ABI: *ASChIS 5 AATei\<0><0><0> : 
010E0005 3196 P.ABH: .LONG 17694725 : 
00000000' bi «ADDRESS P.ABI 3 
00 00 54 41 4D 52 4F 46 114 P.ABK: .ASCII \FORMAT\<0><0> : 
019 0006 p1Ns P.ABJ: .LONG Workres 3 
7 vee 3 -ADDRESS P.AB : 
00 45 44 55 4C 43 4 124 P.ABM: .ASCII EXCLUDE <O> 3 
010E0007 0012C P.ABL: .LONG ; 
ae thao 9 01 ADDRESS P.ABM 3 
3A 64 65 68 63 72 61 65 73 $0 73 65 6C 38 0134 P.ABO: ASCII \Files searched: '10UL Buffe\ ; 
20 20 4€C 55 30 31 21 20 20 20 $8 0 $8 9 o133 3 
65 $6 66 75 42 0 20 9 0 312 ; 
21 3A 74 6E 75 6F 63 20 4F 2F 49 20 g g ¢ 015C¢ eASCII \red 1/0 count:!10UL\<0> $ 
00 4¢ 55 30 H 3188 3 
3434! 8 1 P.ABN: .LONG vpereere : 
099009 * 00174 “ADDRESS P.ABO 3 
65 68 63 72 61 65 73 20 73 64 72 6F 63 5 378 P.ABQ: ASCII \Records searched: '10UL Direc\ ; 
20 20 4c 55 30 31 21 39 20 20 20 20 A 6 018 3 
63 65 72 69 44 20 20 $0 1% 3 
21 20 20 3A 74 6E 75 6F 63 20 $0 tt ry : 1" eASCII \t 1/0 count: !10UL\<0> 3 
010E€00 1B4 P.ABP: .LONG vpomsire 3 
00000000' 00188 ADDRESS P.ABQ 3 
72 61 65 73 20 73 72 65 74 63 61 72 61 68 4 1BC P.ABS: ASCII \Characters searched:  !10UL Page \ ; 
20 20 4€ 55 30 31 21 eo 20 A 64 65 1CB 3 
$3 g 1 0 20 1DA ; 
21 20 20 20 20 0 SA 4 6C 1E4 eASCII \faults: '10UL\<0> 3 
00 4¢ 5 0 ire 3 
4 1F8 P.ABR: .LONG 17694779 : 
M 1F -ADDRESS P.ABS z 
64 65 68 63 74 1 60 $8 73 ° 7 F P.ABU: .ASCII \Records matched: '10UL Elaps\ ; 
20 20 4C 55 30 31 $) : 20 i S A OF 3 
55 33 § 3A 65 6D 3 si 20 5 g 5 eASCII Ned CPU time:!3UL !22L:!22L:!2Z2L.!2ZL\ 3 
SA 32 21 3A 4C SA 32 21 3A ef rn ; ! 9 rt: 3 
4 wnt of P.ABT: .LONG Wersrve : 
0 2 atts) att ABU 3 
20 3A 64 65 74 6E 69 72 70 20 73 65 GE 69 4C 4 P.ABW: <A is printed: '10UL Elaps\ : 


boonies 2:20:08 yatct] BL ie432_ 14.07 Page (28 


to 


1 
1 
20 20 4C 55 30 31 31 i 20 20 i i i i $3 F 
00 53 41 21 20 8 8 A ts 6D 4 4 3 7¢ <ASCII \ed time: !AS\<0><0> : 
10E0 i P.ABV: LONG 17694774 : 
$0050 8. ADDRESS P. ABW : 
STARS_30= P. AAK 
NULL STRe P.AAL 
WINDOW_STR P.AAN 
STRING- STR= Pp. AAP 
SOURCE ~STR= P. AAR 
.EXTRN LIBSFILE SCAN, LIBSLOOKUP_KEY 
EXTRN LIBSPUT OUTPUT, CLISGET_VALUE 
EXTRN CLISPRESENT, OTS$CVT_TIWL 
-EXTRN STRSGET? DX, STRSCOPY_DR 
EXTRN LIBSGET_9M, SRHS$ SBADERCL 
EXTRN SRH$_BADEXCLNAM 
-EXTRN SRHS~BADFORM, SRH$ -BADMATCH 
TEXTRN SRHS"MATCHED, SRHS$~N 
EXTRN SRH$ “NOFILE skis ROMATCHES 
-EXTRN SRHS~ NOST RING, SRA$_NULLFILE 
EXTRN SRH$_RF AERR. * is TRUNCATE 
EXTRN SRHS$ "WOW 


~EXTRN SRHS WOW RANP 

~EXTRN SVSSGETIFL. SY SSGETTIM 
~-EXTRN SYSSCREATE, SYSSCONNECT 
-EXTRN SYSS$TRNLOG, SYSS$FAO 
-EXTRN SYSSASCTIM, SYSS$CLOSE 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 MAIN:  .WORD e R2, RS, R4,R5,R6,R7,RB8,R9,R10,R11 > 0434 
5B 000000006 00 9€ 0000 MOVAB er scet v Cue, R11 ; 
SA 9000" CF 9E 000 MOVAB WINDOW STR: VFion : 
59 000" CF 9E 0000 MOVAB TMP_D ; 
58 0000" CF 9E 0001 MOVAB WDWTPRE RECS, R8 : 
SE C604 CE 9€ 0001 MOVAB 514836(SP) . $P ; 
34 AA 9F 0001D PUSHAB P.AA > 0486 
000000006 00 gi FB 000 9 CALLS #i, AAT LISPRESENT : 
0p08 CB 0 DO 000 VL RO + QUAL STATISTICS ; 
38 3 9 0002¢ BLBC ; 
E 7?C 000eF CLRO Roepe : 0490 
3 4 CLRL = (SP) : 
0238 ¢ F PUSHAB STAT _JPI_BLOCK ; 
E 7C¢ 000 CLRQ = =( SPY : 
43 D4 9 CLRL = (SP) : 
000000006 00 F CALLS #7, SYSSGETJPI ; 
5 0 D MOVL 0; STATUS : 
E 6 . BLBC _—« STATUS, 1$ ; 
0D40 F PUSHAB STAT STARTTIME : 0493 
000000006 90 1 F CALLS #1, SYSSGETTIM : 
0 D VL OR STATUS ; 
0 6 1$ BLBS status, ; 
OSF BRw 5$ : 
030 cB 020 C8 7D 2%: MOV  STAT_JPI_BUFIO, STAT_BUFIO > 0497 
D ¢ D (8 7D MOV STAT JPI“DIRIO, STAT DIRIO > 0499 


F 14 
SEARCH 16-Sep-1984 02:20: AX-11 Bliss-32 V4.0-74 Pa 
W54~500 19-808- 1382 96:39:93 YOtIL 2. SRCJSEARCH.B32; - 
Oope §=—c9 126 CE 9E A 3S: MOVAB INP_BUFFER, RAB+36 : 0507 
44 AB 8382 CE se tt MOVAB_ OUTBUFFER., OUTPUT_BUFF ; 030 
44 AA 9F 0007 PUSHAB P.AAV : 051 
000000906 09 91 FB 7A CALLS #1, CLISPRESENT : 
me 50 A OF pusnas PAO tosis 
000000996 09 1 EB CALLS #i, CLISPRESENT : 
A 0 3 F MOVE RO, QUA_LOG : 
60 AA OF 3 PUSHAB + 0515 
000000996 09 1 EB 096 CALLS #1, CLISPRESENT ; 
A 09 90 MOVE RO, QUA_NUMBERS : 
70 AA 9F 000A1 PUSHAB P.ABB + 0516 
000000906 00 gi FB Ab CALLS #1, CLISPRESENT : 
9 A : 9 AB MOVE RO, QUA HEADING : 
F8 AD OF 0 AF PUSHAB MOb_DESC : 0521 
SA DD Be PUSHL R10 : 
68 FB 000B CALLS ae, CLISGET_VALUE ; 
5 D 0087 MOVL RO. WDW.1 : 
15 3 OBA BLBC wOw_1, &$ 3 
06 =A F 000BD PUSHAB WINDOW 1 3; 0524 
FB OAD sOOF 90¢0 PUSHAB MOD_DESC ; 
000000006 90 08 FB 99¢ CALLS #2, grssevt_tit : 
E9 OOOCA BLBC = RO. «S$ ; 
04 AE D5 000CD TSTL  WINDOW_1 + 0530 
25 19 000 BLSS 3 
F8 AD OF 000D2 4$: PUSHAB MOD_DESC + 0540 
5A DD 0000 PUSHL ; 
Q FB 00007 CALLS ae. CLISGET_VALUE : 
5 DO OOODA MOVL RO. WDW ; 
oF é f 00DD BLBC ; : : 
08 A F OOOE PUSHAB WINDOW 3; 0543 
FB AD OF OODE PUSHAB MOD_DESC : 
000000006 00 98 FB OO0ES CALLS #2, QTSSCVT_TILL ; 
05 E9 O00E BLBC =. «aRO._‘ S$ : 
08 AE DS OO00F TSTL  WINDOW_2 > 0549 
1A 18 OOOF BGEO ; 
F8 AD OF OOOFS S$ PUSHAB MOD_DESC > 0552 
1 DD 000F PUSHL # : 
00071112 8F «DD OOOFA PUSHL  #14094610 ; 
000000006 3 FB CALLS a3 L 18$S1GNA : 
10071112 BF i MOVL #262530066, R > 0553 
F8 AD OF OO10F 68: PUS MOD _DESC : 0557 
A 0D 001 f PUSHL 1 : 
: FB 114 CALLS #2, CLISGET_VALUE ; 
g 000000006 &F Bo 114 MOVL #SRHS_WDW_MAXPRM, RO : 0559 
2 53 E9 00102 7$ BLBC = wDW_1, 10S > 0564 
59 1 BLBC 3=—s-s WD. 8s ; $7 
6 046 =A p 1 mova vi Meow. , WOW_PRE_RECS 3 
19 11 O010C BRB 10$ ; $ 
04 i ; 8$ Ist WINDOW_1 > 0575 
33. AB 1 MOVB = #1, _WDW_ZERO : 0577 
f 1 1 BRB los ; 
50 04 AE C3 00139 9s SUBL3 #1, WINDOW_1, TMP > 0582 


—_ _ — a 


- Page 
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1f3e ~3ep- 1984 99:55:95 — LOTTLS2°SReSseaRCH:B3e; # ee 
ee DIVL3 #2, TMP, WDW_PRE_RECS a 0384 i} 
ee eee ee Lae 
oi HEB oe Re Lom) |] 
WOW_SUB_RECS : . 4 

4 AB DS 00148 ist 19 silty : 0592 
; g if 136 115: move * UDu_FRAME ; 059% 2 
met OTe pane A is 128 cas i. ]SPRESENT = i 
000000006 89 i £5 155 a 1 l WDW_SUB_RECS : S01 sf 
06 F n9 185 13$:  PUSHAB ae pest : i 
0094 CA 9F 001 CALLS #2. CLISGET. VALUE : i] 
68 EB Sn 98 MOVE = RO. OUT_FILE_OPEN 3 1 
ao £9 9017 ROVE MOb_DESC, OUTFABSS2 : 0605 i] 
0190 °9 4 a 59 1 4 MOVE MOD DESCS4, OUTFAB+44 ; a 
o1e8 C9 C9 9F 001 3 is ot svanggen® : : 
ert ae 50 00 001 BLBS ae ae 148 ; 0608 2 
06 23 ES gale) PUSHL OUTFAB+12 ; 24 
mee as 
O1AC £9 9F OOT9A 148: PUSHAB 71. SYSSCONNECT : ey 
een 50 09 Q1A BLBS He 168 : 0611 : | 
16 56 E8 O01A8 PUSHL OUTRAB#12 : :1 
Ores C9 pd OOTAB BUSH i] 
vane oe SB GIRS BuSM STATUS. : . 
OoD710a2 FD 0018 CALLS #4. FILE. ERROR va : | 
0000v CF 9% a91¢0 $: i QUTFABS54, MAX_REC : Berg 3} 
20 AB = o0192-s 9 tt? nee 3 tae OMT 2 : i] 
eae ouel 1] 
BSE Se. a5 a 178: Bes wba Ze ZEho)°0 QOT.FILE_OPEN. OUT _PRINTING : coll + 

330A , TR ; : 
31 AB 7. = FO Ad OF 0109 PUSHAB PLABN : 2 
OOAS CA 9F 0010 CALLS #2, CLISGET_VAL ; 0622 2 
FB OOTE vt’ STRING -DESCEE, R : i 
$8 F4 AY DO OOTE VL STRING-DESC #4, : é 
Fh AQ 1E MOVIWL STRING_DESC, ; ‘4 
2f FO AQ 5 1EB SBW  =—sUPCASE~ 3 0624 .4 
0000v ier PUSHAB KEYVAL : | 
1, tS OF 188 PUSHAB MATCH KEY TBL | 
OO OA PE ROE CALs. et LIBSLooKuP_ KEY 7 
000000006 90 30 08 5 Blas STATUS. 188 : 0626 | 

16 8 § PUSHAB  STRING_DESC : : 
FO OAD OF PUSHL #1 : ej 

35 DD 00508 PUSHL STATUS : F 

E D4 6 SuSHL #SRHS_BADMATCH : 
000000006 8F DD 0021 PUSHL ° 


+ | 
SEARCH 16 -Sep-1984 AX-11 Blis 4.0-74 P 31 
Sban500 2 ~tep- 1382 9¢: $9: 3 UTIL32.SRC ste Zatn H.B32; i 
omcmnnead | oc ke fF a031F sas:  FAREE  E2e htOSSTOP. : 0628 
0010 000A 0014 oor8 24 188: «WORD $- 158, : 
$-19$.- ; 
E 11 0022¢ BRB ile : 
3E A ; 70 6 208: OVE am MAT_AND + 0632 
gO 1 90 00 1$: MOVB #1, MAT_AND : 
F As 1 3 ; $:  MOVB ae MAT-NEGATE ; 0633 
5 g p C 23$: MOVL W_PRE-RECS, RO ; 
F BNE ; 
6C Ad 40 f 8 41 B1SB2 #64, FAB+4 + 0645 
52 m8, BE 90 O0RKE zus: Rove, HT; voy previous : gous 
04 ie 06 a8 ge 80 ry ots Ath 4(SP) 
04 AE 9F 00 36 PUSHAB ; 
000000006 0 FB 0 3A CALLS #2, L LIBSGET_ VM : 
11 6 E8 00264 BLBS STATUS, $ : 
7e be 90586 trace SUSP) — 
000000006 8F ODD 09 68 PUSHL #SRHS, WD WDW_MAXPREV F 
sper ie Mos FO 8 oF § a 25$ BUghAB STRING. poly : 0660 
00B4 CA 9F 00278  — PUSHAB : 
$8 eee (et st mout AST Bier : 0661 
52 F4 Ad DO 00 Be v STRING DESC +4 : 
51 FO oon ey ¢ 0 i MOVZWL STRING. DESC, ay* : 
24 AB 9F 0029 PUSHAB FORMAT + 0663 
O1FO C9 OF 00294 PUSHAB FORMAT_KEYTBL : 
FO «=—AD «OF 00298 PUSHAB STRING~ : 
000000006 99 $0 08 0 CALLS H+ STATUS” KEY ; 
16 6 f A BLBS eT ATS. 6$ ; 
FO «AD «OF 00 PUSHAB STRING “DESC > 0665 
1 DD OO2AB PUSHL #1 ; 
2 Cy : 
000000006 BF DD 00281 PUSHL ' i TBADEORM ; 
000000006 00 ‘sa B7 CALLS BSSTOP : 
ae : 16 AB OD ? 26$: nOVL tut ANelte, RO ; 0673 
8 ¢ BGEO BOs ; 
48 A840 7F 002CB PUSHAQ are pESCCRO] > 0676 
9E 020E000 ef pO CF MOVL #344719 a sP)+ : 
48 A840 7F 00206 PUSHAQ INFILE DESC RO) ; 8 
AA 9F OOODA PUSHAB SOURCE™ : 067 
6 ; 08 p CALLS : " chT GETVALUE : 78 | 
E E BLBC STATUS, 27% : 
16 AB 06 OO2ZE INCL CNT_INFILE > 0681 


<yv 
om 


a ee ee ee ee ON SS SS ee we ee ee ee 


14 
SEARCH 1b-Se0-1984 09:20:05 yaR-11 BL iag-32 v4.0274 Page 2 


03 1 R 6$ : 067 
14 “ 0} 27%: rst NI LINFILE : $6? 
50 000000006 BF Bd ROVL #SRHS_NOFILE, RO ; 0689 
A :  CMPL NT_SRHSTR, # + 0697 
00000088 = &F 18 as } 288 CPL NI 136 : 
£0 A i PUSHAB $STRING_DESC + 0700 
10 AA OF PUS STRING st : 
8 $ F CALLS #2, cy GET_VALUE ; 
6 D et ATYS : 
aa Rt BA eRth tome 
30 oud C84 5 MOVAQ SRHSTR pESECRON, RO : 
60 020€ 09 BF D VL 834471936, ; 
O€ 6 ag f BLBC  QUA_EXACT. 2 > 0708 
FO «6A9 OOF PUS STRING_DESC + 0710 
50 0D PUSH : 
000000006 00 F CALLS #2, STRSCOPY_DXx : 
1 BRB 30$ 
9 b 298 PUSHL RO + 0714 
FO AD OOF PUSHAB STRING DESC + 0713 
000000006 90 0 FB CALLS #2, STRSGET1_Dx : 0714 
0 18 «OA p MOVL  CNT_SRHSTR : 0718 
048C C840 7F PUSHAQ SRHSTR_DESC+4 RO) > 0716 
53 i 00 MOVL a(SP)+, R : 
52 Fe OA p MOVL STRING. DESC+4, R2 ; 
0488 (840 7F PUSHAQ SRHSTR-DESCCROJ ; 
51 3 3 MOVZWL @(SP)+> R1 : 
0000v BSBW —*UPCA ; 
8 As 06 30S: INCL NT_SRHSTR : 0721 
98 «1 Bae : 7 
18 As D5 31$: -TSTL ENT _SRHSTR 3 0727 
0 14 BGTR 2$ ; 
G MOVL § #SRHS$_NOSTRING, R : 
50 000000006 8F 00 ; MOV $_NOST 0 0729 
57 18 AE OQ $:  MOVAB RESULT_DESC+4, R7 : 07 
00000088 &F 1C As o} 4 395: CPL CNT EXCLUDE, 36 ; $735 
0086 31 348: BRw 43$ ; 
FO OAD OOF 5$:  PUSHAB STRING_DESC + 0745 
00c6 «CA OOF PUSHAB P.ABL : 
ee F CALLS #3, CLISGET_VALUE F 
é D VL =O. S aTys ; 
ED 5 BLBC_ STATUS, 34$ ; 
1c AE FO AD 0 8 MOVCS #8, STRING DESC, INTER_DESC > 0751 
146 AE 6 MOVL TMP_DESC, RESULT_DESC : 07 é 
16 AE FF oO 36$ mMOV7BW #255, RESULT DESC : 07 
18 «AE 24 «AE OE MOVAB F, RESULT_DESC+4 3; 07 § 
7E ¢ CLRQ 2s =( SP) : 07 
7E CLRL ss = (SP) ; 
0 AE OF PUSHAB RESULT_DESC ; 
4 AE OF PUSHAB RESULT~DESC ; 
0 AE OF PUSHAB INTER Dest ; 
000000006 of CALLS a6, STSSTRNLOG : 
§ 6 £ BLBS = STATUS, 35 : 0758 


14 
SEARCH 1b-5e -1984 02:20: AX-11 Bliss-32 V4.0-74 Pa 3 
yb ~000 eR aets ra he TOT Pog Sh EE aT 
6 DD 003BC PUSHL STATUS : 07 ; 
ee go A TE sro, BAH steer, wren see iow} |i 
00000629 =F 6 Db} 5 cAPL srAtus, ita . : 8983 : 
18 «BE 16 AE A si LOCC #8 , RESULT_DESC, @RESULT_DESC+4 t 0769 ; 
¢ ¢ DA BNEQ 38$ : ; 
D dC CLAL sR : ; 
1 D3 DE 38$: STL Ri + 0770 ; 
1D E BNEQ 4i$ : ; 
18 BE 16 AE SD BF OSA O08E LOCC #93, RESULT_DESC, @RESULT_DESC+4 + 0771 ; 
: ‘ E BNEQ 39% : ; 
D €B CLRL R1 : 3 
1 D3 ED 39$: TSTL Ri + 0772 ; 
E 0 EF BNEG 41 : ; 
18 BE 16 AE A 003F1 LOCC #62, RESULT_DESC, @RESULT_DESC+4 : 0773 ; 
2 6 F7 BNEQ 40 : : 
D4 003F9 CLAL sR : ; 
1 D3 O3FB 40$:  TSTL Ri + 0774 ; 
12 13 003FD BEQL 42% : ; 
16 AE OF OO3FF 41$:  PUSHAB RESULT_DESC + 0776 : 
1 DO 0402 PUSHL # : : 
000000006 8F DD 004 PUSHL #SRHS BADEXCL ; ; 
000000006 90 3 FB 0040A CALLS #3, LIBS$STOP : ; 
0 1¢ AB D0 00411 42$: § MOVL  CNT_EXCLUDE, RO > 0781 ; 
O8C8 C840 7F 00415 PUSHAQ Excl DE DESCCROJ ; 3 
9E 020E0000 8F D0 O04 1A VL 34471936, a(SP)+ : ; 
O8C8 C840 7F 00421 PUSHAQ EXCLUDE _DESCLROJ : 0782 ; 
18 AE 9F 00426 PUSHAB SULT BESC : ; 
0000v CF 02 FB 004 9 CALLS #2, VACIDATE_EXCLUDE_FILE ; ; 
1C AB 06 0042E INCL CNT EXCLUDE ; 0783 : 
FF3D 31 00431 BRW 3$ + 0737 ; 
38 «AB «OB4 00434 438:  CLRW FOUND FI : 0788 ; 
10 AE D4 00437 CLRL §SCAN_CONTEXT : 0790 ; 
at: 14 AS DO 0043A VL CNT_INFILE, R3 : 0791 ; 
52 01 CE 0043E MNEGL #1, IFX : ; 
28 11 00441 BRB 45$ : : 
4C A842 7F 443 44$:  PUSHAQ INFILE_DESC+4CIFX] > 0794 : 
0094 9 95 0 0044 VL @(SP)+> FAB+44 : : 
48 ABL2 7F 0044 PUSHAQ INE ILE _DESCCIEX3 : 0795 ; 
009c = c9 9— 90 4 VB a(SP)+> FAB+52 ; ; 
19 E 9F 004 PUSHAB SCAN_CONTEXT : 0796 ; 
000 V CF OF 004 SHAB SCAN-FAILURE : ; 
O00v CF 9F PUSHAB SCAN-SUCCESS : ; 
68 AD OF SHAB FAB ; ; 
000000006 00 04 FB 0046 CALLS #4 | {BSF ILE_SCAN : : 
0098 ¢ D4 0046A CLRL —s FAB+ : 0800 : 
D1 53 Fe 46E 45$: AOBLSS R3, IFX, 44$ : 0791 ; 
0 opos ¢ BLBS gud STAfISTICs, 46$ : 0807 : 
O1AC 31 0047 BRW 52$ : : 
7E 7C 0047A 46%:  CLRQ (SP) : 0820 ; 
7 4 0047¢ CLRL —s_ = (SP) : : 
0238 5 F 0047 PUSHAB STAT_JPI_BLOCK : 
E 7C 004 CLRQ = =(SPY : 
43 D4 004 CLRL 0 = (SP) ; 
000000006 99 FB 4 CALLS #7, SYSSGETJPI : 
0 pO 004 MOVL RO. STAT : 


BS. - -74 Page 34 
-S$ep-1984 02:20: AX-11 Bliss-32 V4.0 . 
S58 IERIBCIOEE QRBRIBE WOT. AMENG Ea Bid 
en 52 £9 004 BLBC STAT, 47$ : 
04 ¢ 00B4 ¢E be a3 OVAB OUT_BUF, TMP_DESC+4 
ee oe ie 1 IB$PUT_OUTPUT : 
eee 7 F 8 th sou dew +86 gt DESC 3 
e 38 : i SUBL3 STAf_BUFTO, STAT_JPI_BUFIO, -(SP) ; 
" seed hss 3 EB 6D OOGA SHL STAT ~TOTFIL : 
D14 DD OO4AF PU HL STAT. 
a : 
ABN : 
000000006 a 4 4 $c8 CALS” We SYSSFAQ 
i a a a : 
gy PB Rhee IBSPUT_OUTPUT 2 
eee $F OB Boden soy dew At LMP DESC 3 
63 38 } H 00405 SUBL3  STAT_DIRTO, STAT_JPI_DIRIO, -(SP) z 
" — St fe ‘ PUSHL STAT ~TOTREC ; 
ae a : 
9 ; 
Ay BORED FURS aa, : 
wah 9 CALLS #5, SYSSFAO 3 
nn 99 8 b SE MOVL RO. STAT 3 
36 32 9 Socks 47$: BBC STAT, 48$ 
3 e ies CALLS #1, LIBSPUT_OUTPUT ; 
ene oe g} § AFF MOVZBW #8 P_DESC aie : 
6 3° ee 28 5 UBL3 STAT_PAGEFLTS, STAT_JPI_PAGEFLTS, -(SP : 
7E Op2c (CB Op3c ~=6CB OC3 00503 BL3 STAT _PAGEFL # ; 
ee as a : 
1 ae a 2 
we Uh ie ; CALLS #5, SYSS$FAO ; 
000000006 00 05 F 0517 CALL $ 
$$ 52 4 0521 48$: BLBC star, 49$ 
00000006 00 34 Pe $8 r CALLS a, LIBSPUT OUTPUT ; 
0D24 c3 ovae i cs a3 Soar ' Stat CPUTIA, STAT JPI_CPUTIM, TIM : 
30 1 7A 00539 EMULSsé#1, TI _ : 
, ($P)4. =(SP), (SP) 
He 7 90000064 BF 78 0055 EDIV, #160, (Sp)+, 
34 51 sonnet ‘ SA fre EMUL st Ri 46. (SP) mes : 
( +, ° ° ° 
a i ae Et RCTS : 
; 2, nee te rh } ED IY 66 Ri eye ($b) (SP) : 
ce re 56 00057E40 : re DIVLS #886000, if ne ; 
: 1 oA -(SP), (SP) 
a i 18 70 0578 DIV, aL apd CSP) 2 
" 0085p6r8 et 4 PUSHL STAT_TOTMAT : 
” $9 DD O0889 PUSH RY : 
00000 ate : Pushke Bg eT ssrao : 
. ste 99 9 4 98 VL RO. STAT : 


tt 


nto 
104 
108 
000000006 


o11c~—s«#CE 0040 


0120 


000000006 


000000006 


000000006 


000000006 
000000006 


; Routine Size: 1629 bytes, 


1 
1 
78 3 f° 98 
00 1 fe i 
cE 10 1) 
cE 8196 cE Be A 
mF Be 
fe 
E zt 
11C¢ cf C C4 
BORE 8 Baie 
cE 5 Dd 0 Dd 
go OE Be 
O16 CE 9F Dee 
9 OO ER Be 
59 8 D0 03s 
21 P) 52 O5F 
69 50 «68F 98 005F8 
HE Ses 
59 DD 00604 
59 0D 00606 
» mm OR Ris 
2 50 D0 00618 
04 25 E8 00616 
50 52 00 00619 
04 0061C 
59 0D 0061D 
00 01 FB aH 
0B 30 AB &? 0626 
9 oo HF See 
56 01 DO 096 § 
1D C A8& E8 006 
12 B AB E9 00635C 
56 000000006 of ° Beeee 
00 1 FB 00649 
7? 11 0065 
26 000000006 ‘ 4 38 
04 0065¢ 


Routine Base: $CODE$ + 0000 


14 


SSIS QRBESE UHL. ASNaEzts 2 


49$: BLBC 
P 


CALLS #1, LIBS$PUT_OUTPUT 
MOVL #16, TIM_DESC 
MOVAB 


STAT, 50$ 
R 


ADTIME, R 
MOVL R gpQUAD TIME 
PUSHAB QUADTIME 
PUSHAB TIM_DESC 


PUSHAB TIM~DESC 
CALLS #4, SYSSASCTIM 
MOVL ’ STAT 
BLBC = STAT, 50$ 
MOVZ7BW #80, TMP_DESC 
PUSHAB TIM DESC 
PUSHL STAT_TOTPUT 
PUSHL 9 
PUSHL 9 
PUSHAB P.ABV 
CALLS #5, SYSS$FAO 
MOVL ; STAT 
BLBS STAT, 51$ 
50$: MOVL STAT. RO 
RET 
51$: PUSHL 
CALLS #1, LIBSPUT_OUTPUT 
52$:  BLBC  OUT_FILE_OPEN, 53$ 
PUSHAB 


CALLS #1, SYSSCLOSE 
#1. STATUS 
LBS  FOUND_ANY, 55$ 


BLBC + FOUNDFILE, 54$ 
MOVL § #SRHS$"NOMATCHES, STATUS 
PUSHL §$ 
CALLS #1, LIBSSIGNAL 
548: MOVL #SRHS NOFILE, STATUS 
5$: MOVL STATUS, R 


STAT_STARTTIME, QUADTIME 
TTIME#4, RO 


Se See Se Ge Be Ge Se Be Se Ge Ge Se Be Se Se Be Ss Be Se Be Se Be Se Be Be Se Se Se Fe Se Se Fe Se Se Be Se Se Se Se Se Se Se Ge Be Se 


} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ttf 


; Routine Size: 


1SoSenc19R 08:20:05 yAKNY BL ie4-32_V4.0-74 


1 ROUTINE scan_success : NOVALUE = 
BEGIN 


895 
is 
538 Make sure that this file isn't being excluded 

$500 if NOT exclude_file() ! Check exclude list 
0901 THEN 

$306 

090 

0904 


EGIN 
found file = true; 


earch one_file(); ! Open & search a file 


906 
907 RETURN; 
0908 1 END; 


0000 00000 SCAN_SUCCESS: 
WORD Save nothing 


0000vV CF 00 FB 00002 CALLS #0, EXCLUDE_FILE 
OA 50 £8 00007 BLBS RO, i 
0000" CF 01 90 QO00A MOVB #1, F LE 
0000v CF 00 FB 0000F CALLS #0, SEARCA. ONE_FILE 
04 00014 18: RET 


21 bytes, Routine Base: S$CODE$ + 065D 


roe 


Sep-198e 19:85:95 


N 14 


1 


V04~600 


-fab Cfab$l_stvJ); 


-fab Cfab$l_sts], fab, 


: NOVALUE = 


file.error (srh$_openin, 


NE scan_failure 


at” 4 


0000 00000 SCAN_ 
0 
0 
0 
0 
0 
0 


a 
Oo 
a 
i+ 
uJ 
$ 
ua 
a 
i 
u 
. 
wT 
= 


Save nothin 
414094488 


FAILURE: 
RET 


an anuoO 


0000v CF 


Routine Base: $CODE$ + 0672 


26 bytes, 


; Routine Size: 


15 
SEARCH 1b-$e -1984 02:20: AX-11 Bliss-32 V4.0-74 Page 38 
¥5a5000 12-808- 1 3be 96:39:93 {UTIL 2.SRC SEARYN B3004 s a 
> 924 31$ 1 ROUTINE validate_exclude_file ( in_desc REF BLOCK Fg. erTe 
; 925 917 1 out_desc : REF BLOCK (8, BYTES : NOVALUE = 
; F § 318 1 
; 9 91 1 te¢ 
: 4 $ 2 y : Functional description 
; 2 : , ¢ } ; This routine checks to see if string_desc is a valid filename 
: 9 924 1 | Calling sequence 
: 33 955 11 — 
: : ¢ i 8 : } validate_exclude_file (in_desc, out_desc) 
; g , 8 ! ; Input parameters 
: 9 930 1! in_desc - Address of any class string descriptor containing a 
; 939 0931 1! filename to be validated 
; 940 O38 1! 
; 941 933 1°! Implicit inputs 
3 arg Rte 1! 
; 94 0935 1! none 
> 944 o3 38 1! 
; 945 0937 1 ! Output parameters 
; 946 0938 1! 
3; 947 0939 1! out_desc = Address of ony class descriptor to receive validated name. 
: 948 0940 1! This copy will NOT have node, device or directory. Leading 
; 949 0941 1! zeroes will be stripped from version numbers. If a name 
: 950 Beeg 1! of the form NAME.TYP; or NAME.TYP;0 is given, the version 
3; «951 0945 1! will also be stripped. 
; 926 0944 1! 
; 0945 1 ! Implicit outputs 
; 9546 0946 1! 
; 955 0947 1! none 
: 956 0948 1! 
; 957 0949 1 ! Routine value 
; 958 0950 1! 
; 959 0951 1! TRUE - The filename is valid 
; 960 oat} 1! error = The filename does not parse without errors, the RMS error 
; 961 0953 1! code is returned 
; 208 0954 1! 
: 96 0955 1! Side effects 
: 964 3338 1! 
; 965 Bee 7! Errors will be signalled 
: 208 5381! 
: Bee 30 1 | 
; 369 961 2 BEGIN 
> 971 a368 OWN_DZRO 
3 38 val_exp : VECTOR (nam$c_maxrss, BYTE], ! Expanded name string 
3 1h 5 val_res : VECTOR C[nam$c_maxrss, BYTE]; ! Resultant name string 
: 975 OWN_CRF 
: 976 Pp val_nam : SNAM ( ' File name block 
; 97 P 9 RSA = val_res, ' Result name addr | 
3 378 P 0 RSS = nam$c_maxrss, ! Result name size 
3; 9 P 0971 ESA = val_exp, ' Expanded name addr 
; 980 72 ESS = nam$c_maxrss), ! Expanded name size 


el ke tk ed ed od 


Pe ee Pewee SSeS ee ee SH Se Oe Se Oe Oe Se Se Se Be Be OH Oe BH ee SH ee we ee we 


SAN 


SUSAR AS 
WO OONAUEW 


DOODOOOOO0O 


oo 
0 


$333 


wr 
Lo] 
ODOODODOOOOOOOOOOOOO 
SS uw 


33333 


POPPIN BBB BE ARIPO III CAI AI AI I OPPIIPUPUNOPUNNINUNUNN 


3 


oO 


3383 


Se SSSSSSSs3ssss3 


SSSSSs23 


ss 


OONO NEW $0 ODNOAUE WO O@ 


oe 


NOUS UN “OOO NOU Sw —oO 


wn 


w 


ma a aa a a a a a a a et Ls — — a 9 9 4 


SOOCOCOCOCOCOCOSCOSOOSCOOOSCOOCOCOOOOCoOOoOoO 


oe ue a wt 8 a a et a ts 4 te 


PROPQPIFOPORPOPONINYNY — OO Os 


COOOCOCOCOCOCOOCOCOCOOOOCOC°ooO 


rite ISL BARD WPS 
val_fab : SFABC t file FAB 


Inp 
os = UPLIT BYTE('®#.#'), | Peisul t file seee 
(DNM doesn't Like *'s) 


NAA = val_nam); Name block 

LOCAL 

lve, ! Length from pl a to end 

len, i The current a 

adr, i The currens st 

Pp. ia pointer into” the string 

status; 
val_fab Cfab$l_fna] = .in_desc Cdsc$a_ potatert: ! Set name addr 
val-fab Cfab$b_fns] = .in-desc Cdsc$w_ Pength; i Set name size 
Ag (status = SPARSE(FAB = val_fab)) ! Parse the file spec 


BEGIN 
Le yegerrer (srh$_badexcinam, .status, val_fab, .val_fab [fab$l_stvJ); 
END; 


status = SSEARCH(FAB = val_fab); ! Parse the file spec 
IF (NOT .status ) AND (.status NEQ RMS$_FNF) 
— 


EGIN 
file error (srh$_badexcinam, .status, val_fab, .val_fab Cfab$l_stv]); 
ge 


len = .val_nam [nam$b +45 F 
adr = .val_nam (nam$l"e 

= locate_filename (7 oy adr); 
en = .len'= (.p - adr); 


Get length of expanded string 
Get address of expanded string 
Skip device and directory 
Adjust the Length 


adr = .p; ' And move the pointer 
= locate_ version (.len, .adr); ! Find the version number 
ve = ,len'= (.p - adr); Compute remaining length 
pers 1 ! Trim leading zeroes in Length 
BEGIN 
MS GTR 2) AND (CHSRCHAR(.p+1) EQL '0*) 
BECIN 
lve = 1 ° 1; ! Remove one from roneer"y Length 
len = « I; ' Also trim one from full length 
Cnsmovet® | od “p+2, .ptt); ! st de it over one byte 
ELSE 
EXITLOOP; 
ND; 
IF {. lve LEQ 


OR ((. lve EQL 2} AND (CHSRCHAR(.p*1) EQL ‘0')) 
THEN 


len -len = 
tmp_ desc” dsc$w "teens = len; 
tmp_desc ([dsc$a_pointer) = .adr; 


SA 


a 


str$copy_dx (.out_desc, tmp_desc); 


RETURN; 
END; 


15 
1-00-1984 98:20:98 yARoI] BLisg=32_ 4.9276 


! Copy to the output descriptor 


~-PSECT SOWNS_CRF ,NOEXE,2 


VAL_NAM: .BYTE 
BYTE 
-BYT - 
.BYT 0 
-ADDRESS VAL_RES 
BYTE 8 
BYTE 
BYTE 5! 


“BYTE 
“ADDRESS VAL_EXP 
“LONG 


ioe tH 


‘BYTE 02) 


“LONG 
VAL FAB: .BYTE 


RSAW> SOP UMNO I OFEOMGD FOAM LODS OODUEME ORM ROS SOAR OAM 
4 


LONG 
“ADDRESS VAL_NAM 


Sm 


we eee ee ee re ee Pere Pe re ee ere ee ere ere ee ere Te re rere rere rere Te Te Te Te ee Tere ree Te Te ee Te Te ee ee eee ee 


1502000 1i-te ets ra St MTT PST ES a PE Pope 3} 
tatdittee Of aN eSS P.ABX : 
“BYTE : 
1 “BYT : 
1 WORD ; 
000080 1 “LONG : 
18 WORD ; 
1A “BYTE ; 
1¢ “PONG 
a 3 LONG ; 
; ee : 
Be “BYTE : 
colt 0 8 LONG ; 


1148 VALEXP:.BLKB 255 
\s¢ -BLKB 
1248 VAL_RES:.BLKB 255 
.PSECT S$PLITS,NOWRT ,NOEXE ,2 
2A 2E 2A 00294 P.ABX: .ASCII \#.#\ ; 
.EXTRN SYSSPARSE, SYSSSEARCH 
-PSECT $CODES,NOWRT,2 
O7FC 00000 VALIDATE EXCLUDE FILE: 


“WORD Save R2.R3,R4.R5,R6.R7,.RB,R9,R10 : 0916 
SA 0000" CF MOVAB VAL_FAB. R10 — ; 
50 046 AC MOVL IN_BESC, RO ; 0985 
3c AA 04 AO MOVL 4(RO), VAL_FAB+44 ; 
4 AA $f MOVB (R90), VAL _FAB+52 3; 0986 
A PUSHL 1 : 0988 
000000006 9 1 CALLS #1, SYSSPARSE ; 
9 MOVL RO, STA Tus : 
1 BLBC status, 1 : 
A PUSHL R10 ; 0995 
000000006 99 1 CALLS #1, SYSSSEARCH : 
MOVL RO” STATUS 3 
iC BLBS STATUS, 2$ : 0996 
00018292 8F ; CAPL STATUS. #98962 ; 
C AA 18 PUSHL VAL_FAB+1 ; 0999 
0% 4 8F PUSHR #*M2R2,R10> ; 
000000006 8F PUSHL aSRHS BADE XCLNAM ; 
0000v CF CALLS FILE_ERROR Foes 
58 AB OAA 28: MOVZBL VAL_NAM+11, LEN ; 308 
rs AC AA MOVL  VAL"NAM+12. ADR ; 1904 
PUSH ADR" : 1005 
0000v gf CALLS a5. LOCATE _F ILENAME ; 
7 MOVL RO, P Fs 


| 
i 
-PSECT $OWNS_DZRO,NOEXE ,2 
| 


F 15 
to ICREcTORt URNS WWE ASAE 


50 
0000v 
23 
9 
01 A? 02 
FD34 
FD38 
000000006 


00 


; Routine Size: 195 bytes, Routine Base: 


01 


01 


FD34 
08 


MUIMO F&F —ANATWTMNIO VII 


ODO0DOM NV ODNONMOOS NO™~™N 


02 


FDO POON 0 2 1h @ ONIN SU  WODTOFVOOw 


ono O9ODN—Oo- 90 9 —TN0 9  O-FONOIO*NOVIIONO 


SCODES + 068C 


SUBL ADR RO 
ADDL nb, 
MOVL 
¢ PUSHL AR 
PUSHL LEN 
CALLS #2, LOCATE_VERSION 
? MOVL. RO. P 
7 SUBL3. PP, ADR, RO 
7 ADDL3 LEN, Rd. LVE 
3$: CMPL a) 
BLEG 
CMPB «dW (P), #48 
BNEQ 4$ 
DECL LVE 
DECL_ LEN 
F MOVC3 LVE, 2(P), 1(P) 
3 BRB 
97 4$ CMPL VE, #1 
9A BLEG 
9C CMPL = LVE, #2 
O09F BNEQ 
0] CMPB «dA (PP), «#48 
aS BNEQ 6$ 
OOA? 5$ SUBL2 LVE, LEN 
AA 6 MOVW LEN. TMP_DESC 
OAF VL ADR, _~TMP"DESC+4 
0B4 PUSHAB TMP ~DESC 
0088 PUSHL OUT=p 
0088 CALLS # “ST RSCOPY. Dx 
00C ET 


De Se Se Se Se Se Be Se Se Se Se Be Se Se Se Fe Se Se Se Se Be Se Ge Se Se Se Se Be Be Se 


15 
vO4=000 Ve-Sep-19be 99:95:98 EOFTLS2°SReSseancn:630; 
ROUTINE exclude_file = ! See if the file should be excluded 


lee 
' Functional description 


This routine checks to see if the current resultant filename in 
nam_block matches any of the filenames in the exclude List 


Calling sequence 
exclude_file() 

Input parameters 
none 

Implicit inputs 


nam_block = The NAMe block containing the resultant string 
exclude _desc - Array of filenames to exclude 
cnt_excTude = Count of items in use in the array 


Output parameters 


SESSS SSE S OLS TONS Ee Oe RE 
w —O ODOM A "OOODVNOMNE WW 
WR 9 ONO VF UW 0 OD NONE UP OOOO 


FRE RRRAARAAAAR ER ERE REE Rtgs 


Oe ee ee ee 


none 
9 Implicit outputs 
090 
071 none 
8 
a7 : Routine value 
075 TRUE - The filename matches an item in the exclude List 
678 FALSE = The filename does not match any item 
4 9 Side effects 
70 
71 none 
1 
7 ns 
74 
75 BEGIN 
5 4 
7 LOCAL 
4 | . ' A local character pointer 
enf, : Length of file name from nam_block 
adrf, ' Address of 
1 lent, : Length of target name from exclude List 
§ adrt; ' Address of 
: IF .cnt_exclude EQL 0 THEN RETURN false;! Don't bother doing anything more 


i 
: Remove device and directory from the result name 


ee ee el me el el ed a ad ed nd 8 ed ed ed od 
a ee ee LS 


PRIMM MMMM MIMONIMIIIY tt a a a ns nt nt a a a a a Ss Ss Ss 


lent = .nam_block framsb_rsl : ! Get the res Length 
adrf = .nam_block ([nam$i_rsal; ! Get the result address 


ri 


4 15 
64600 1erSep-19be 98:58:98 EOATLSPSAESSeantncb3e+7 Page 48) 


91 

1 3 = locate_filename (.lenf, .adrf); ! Look for end of directory 
¢ 9 enf = .lenf - (.p = vadrts; : Adust the length 

adrf = .p; ! Adjust the pointer 
5 : . 

Now compare the file name against each file in the exclude List 

INCR idx FROM 0 TO .cnt_exclude-1 ! No loop if it equals zero 

BEGIN 


i If the version is not explicitly given in the target, then remove 
the version from both the input filename and the target 

lent = exclude desc (.idx, dsc$w_length]; ! Length of target 

adrt = .exclude_desc [.idx, dsc$a_pointer); ! Address of target 


SRLESFERLSSSLELE 


= PINININ AWM BB AMIN WII nnonononofornonong 


> ts ts 


Bees FeO e ae Oe Oe Oe Oe oe OF Oe Be OH Oe OH Oe OH Oe Oe OH Se Oe HOH OH Se OH Os OH OH Oe Oe Oe SH ee 
aa a a kk a a ed a a 8 = = 8 8 8 
ee ed ed ed ed ed od 
a ni a ad at = wd = a 2 4 st 


? 1 ; 
1 ; 

§ 1 ; 
1 : 

& 1 ; 
5 1 ; 
Peo : 
: 1 e = locate version (.lent, .adrt); ! Look for version in target ‘ 
110 F .p EQ 0 ; 

13 ae ecin ! No version in target, strip from filename ‘ 
¢ 113 e = locate version (.lenf, .adrf); ! Look for version in filename ; 
114 F .p NEQ O ! If present ; 

& 115 THEN ‘ 
5 118 lenf = .p - .adrf; ! Set length without version : 
Beet bes : 
: 4 Boteh_ Fite (.lenf, .adrf, .lent, .adrt) ; 
121 RETURN true; ! We got a match, exclude this file ; 
fk lee ; 
g \ $ RETURN false; ! Never matched, include this file ; 
5 126 1 END; ‘ 
O1FC 00000 EXCLUDE _FILE: : 

sWORD Save R2,R3,R4,R5,R6,R7,RB : 1034 ; 

0000" ¢F iste CNT EXCLUDE ; 1084 ; 

$ 44 8 CF MOVZBL NAM_BLOCK+3, LENF : 1089 ; 

2 a MOVL NAM BLOCK+4, ADRF : 1939 : 

¢ PUSHL ADRF ; 109 ; 

PUSHL  LENF : . 

0000v CF CALLS #2, LOCATE_FILENAME ; ; 

MOVL e ; : 

50 eg P, ADRF, RO ; 1093 ; 

AbdL2 =O, LENF ; : 

MOVL P, ADRF : 1 : 

0000° ff MOVL CNT_EXCLUDE, RB : : 

1 MNEGL #1, IDX 3 7 : 

64 BRB 3$ : : 
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_ 
oO 


to 
57 
56 


0000v gf 

0000v gf 
54 55 

0000v ¢ 
B8 53 
Routine Base: 


; Routine Size: 125 bytes, 


0000'CF 
0000'CF 
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: 
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F 
C 
i SHAG EXCLUDE_DESC+4C1DXJ 
no VL @( SP) +, “ADRT 
0 PUSHL ADRT 
n SHL LENT 
F CALLS fe, LOCATE_VERSION 
p VL — RO, 
Mm 3 
DD PUSHL ADRF 
DD PUSHL LEWF 
F CALLS #2, LOCATE_VERSION 
p MOVL RO. 
BEQL 
C SUBL3 ADRF, P, LENF 
dD 28: PUSHL 
BB PUSHR #*M<R2,R7> 
dD PUSH LENF 
FB CALLS #4, MATCH_FILE 
t BLBC 3=E_ «RO. -3$ 
bo ROVL #i. RO 
F2 38: AOBLSS RB, IDX, 1% 
D i$: CLRL —- RO 
04 RET 
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ROUTINE Locate_version (len, adr) = ! Find version in filename 


'e+ 
' Functional description 


NAME.TYP.1 are allowed. 
Calling sequence 

locate_version (.str Cdsc$w_length], .str Cdsc$a_pointer]) 
Input parameters 


len = Length of filename string 
adr - Address of filename string 


Output parameters 
none 

Implicit inputs/outputs 
none 

Routine value 


Address of the character delimiting the version number if found, 
: otherwise 0 


BEGIN 
LOCAL 
° ! Remaining length for alternate syntax 
Pp: ' Local character pointer 
e = CHSFIND_CH (.len, .adr, ';"); ! Look for version in target 
F aP EQL 0 
BEGIN 
e = CHSFIND_CH (.len, .adr, *."); ' Check for alternate syntax 
F .p EQL O- THEN RETURN false: i No version 
= .p+t1; ' Bump pes the dot 
= .len = Cp - .adr); : Length of remainder 
IF .t LEQ 0 THEN RETURN false; ' It was E."", no version 
eS | ' Look for second dot 


3 = CHSFIND_CH (.l, .p, *.°); 
ND; 


RETURN .p; 
END; 


Done, it is zero or pointer 


Oi leg 32 v4.0-7 
SRC JSEARCH.B32 


This routine finds the version number part of a file specification. 
Both the standard syntax of NAME.TYP;1 and the alternate syntax of 


Kk 15 
eSepm tone 19:59:58 EOTTLS2SReSseantn:e30:1 Peer 
0000 00000 LOCATE. VERSION: 


ttf 


; Routine Size: 58 bytes, Routine Base: S$CODE$ + O7CC 


Ww $2 e nothin ; 1127 ; 

08 BC 04 Ac 3A 2 Loc #59, LEN, @ADR + 1164 : 
¢ BNEQ 1$ 3 : 

: c 1$ rit. : 1165 ; 

: 3 BNEQ = 3$ : : 

08 BC 04 Ac A 0001 Loc #46, LEN, @ADR : 1168 ; 
; 1 NEQ 2$ $ ‘ 

16 1A 28 ‘eit : 1169 ; 

9 4 1¢ BEQL «= 4$ ; : 

1D 1 INCL. P + 1170 ; 

50 08 Ac 1 ¢ SUBL 3 P, ADR, RO + 1171 ; 

50 06 ac €0 000 ADDL LEN. L ; : 

fe 0 9 BLEQ 4 ; 1172 ; 

61 50 $A 0 8 Loc #46, L, (P) $117 ; 

D4 09 } CLRL sR ; : 

50 1 20 38: MOVL PP, RO : 1176 ; 

4 000 RET : ; 

50 b4 00 4$: CLRL = RO : 1178 ; 

4 00039 RET : ° 


oo 
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ROUTINE locate_filename (len, adr) = ! Find version in filename 


lee 

' Functional description 
This routine finds the filename part of a file specification. 
Node, device and directory are removed from the filespec. 
Both the standard syntax of CDIRJNAME.TYP and the alternate 
syntax of <DIR>NAME.TYP are allowed. 

Calling sequence 
locate_filename (.str Cdsc$w_length], .str Cdsc$a_pointer]) 

Input parameters 


Len = Length of filename string 
adr - Address of filename string 


Output parameters 
none 

Implicit inputs/outputs 
none 

Routine value 


Address of the first character of the filename. If no node, device 
or directory is present, then .adr will be returned 


BEGIN 
OCAL 
retval, ' Address to return 
Pp: ' Local character pointer 
retval = .adr; ! Assume nothing to remove 
e = CHSFIND_CH (.len, .adr, ‘]'); ' Look for end of directory 
F .p NEQ 0 
THEN 
noe" = .p?+il ! Move the pointer past the ‘]' 


N 
ee net ee (,len, .adr, ">'); ! Alternate syntax for directory 
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I tee = .p?+il ! Move the pointer past the ‘'>' 
BEGIN 
Lon, 
a: ' 
l= . len; ' Get a temporary for the length 
a= .adr; ' and the address 
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Save R2,R3,R4 
ADR, RETVAL 
#93, LEN, @ADR 
3$ 
#62, LEN, @ADR 
2s 
RETVAL 
TVAL, RO 


FILENAME : 
- WORD 
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Routine Base: 


BC 
BC 
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08 
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85 bytes, 


: Routine Size: 
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-Sep-1 UTIL352.SRCJSEARCH.B32; 


HERES VRBO WOLLMAN Pel 
! Find version in filename 


ROUTINE match_file (lenf, adrf, lent, adrt) = 


144 
! Functional description 


This routine compares a filename (result string) with a target 
fihenane,,.,,the target filename may contain the wildcard characters 
an : 


tert 
Calling sequence 


match file (.lenf, .adrf, «lent, .adrt) 
Input parameters 


lenf = Length of filename string 
adrf - Address of filename string 
lent - Length of target filename string 
adrt - Address of target filename string 


Output parameters 
none 
Implicit inputs/outputs 
none 
Routine value 
TRUE (1) if the target name includes the filename, FALSE (0) 


otherwise 
BEGIN 
LOCAL 
cht, ! The character from target 
chf; ' The character from the filename 
+ k FROM .lent-1 TO 0 
BEGIN 


lent = .lent-1; ! Decrement target length 
IF .lent LSS 0 THEN SIGNAL_STOP (SS$_BADPARAM); ! Temporary check 
cht = CHS$RCHAR_A(adrt); T Fetch char and bump pointer 


aaa EQL ‘s* ! Found a wildcard in target 
BEGIN 
IF .lent EQL 0 ! Wildcard at end of target string 
! matches everything, return a 
RETURN true; ! matc 
gece i FROM .lenf-1 TO 0 ! Look through rest of filename 


BEGIN 
IF match_file (.lenf, .adrf, .lent, .adrt) ! Rocurstvety 
THEN ! examine rest of filename from this 


—K— TO WMOODZ Sl ACH TOM OCWS Sl KAOKH ITO *MOOCOZ Sl ACH LO MMIOOCOWVZ Sr ACK TOMO 


16 
ttf IERESHOE WSUS WAGLLMMESSRNRAEA 


; 1320 1308 RETURN true; ! point in target, return true if found 
3 1321 1309 lenf = .lenf-1; ' Advance one character in the filename 
3 : § } 19 i = = ,adrf+l; ! and repeat recursive cal 
3 1324 1 \¢ 4 RETURN false; ! We did not match from wildcard 
s 1529 1313 4 END 
3 1 : 1314 3 ELSE ! No wildcard in target 
: 1 1315 4 BEGIN 
; 1328 1316 4 enf = .lenf-1; ! Decrement the input string 
: 1329 1317 4 IF .lenf LSS 0 ! If we have exhausted the 
; 1350 1318 4 THE ' filename string then we did not 
sj 3] 1319 4 RETURN false; ! match and we can return false 
3: 1 ¢ 1320 4 chf = CHSRCHAR_A (adrf); ! Get filename char and bump pointer 
s 4 : 1321 5 IF NOT ( ! If none of the successful tests 
3 1334 1 ¢ 6 (.cht EQL ;chf) ' Did we match? 
3; 1335 1 § 6 OR (.cht EQL ! Single character wildcard 
3; 1336 1324 6 OR ((.chf EQL ‘';') A ! See if the alternate syntax is 
; 1332 1336 : (.cht EQL '.") ) ! in target (assume RMS gives ';') 
3; 1339 1327 4 THEN ! We did not match in any way. therefore 
: ib 1328 4 RETURN false; ! we can return false from here. 
3 1341 1329 3 END; 
3 13g 1330 END; 
3: 134 1331 
3 ieee 1338 IF .lenf EQL 0 THEN RETURN true; ' Matched so far, filename exhausted 
3: 1346 1334 RETURN false; ' More characters in filename, no match 
3 1347 1335 2 
3 1348 1336 1 END; 
007C 00000 MATCH_FILE: | 
» WORD Save R2,R3,R4,R5,R6 s 1251 
55 oc ag DO 00002 MOVL LENT, K : 1290 
63 11 se BRB 3 
Oc AC 07 00008 1$ DECL LENT ; 129 
53 0c AC 0? 0008 MOVL ENT, R3 : 129 
09 18 OO00F BGEQ 3 
14 DD 00011 PUSHL 0 3 
000000006 00 01 FB 00013 CALLS #1, LIBSSTOP 3 
54 19 BC 9A ne 23 MOVZBL @ADRT, : 1295. 
1 AC 06 i INCL ADRT 3 
2A 54 Dl : CMPL gut. #42 3 1297 | 
@3 12 00024 BNEQ $ ; 
D 0 6 TSTL R3 ; 1300. 
49 #1 0 BEQL 7$ ; | 
52 04 ac OD A MOVL LENF, I 5 1306 | 
16 11 B88 4$ ; 
10 as 0D 3$ PUSHL “Sh 3 
5 bp PUSHL R § 
7E 04 AC 0 MOVQ LENE -(SP) $ 
C3.”—soAF 9 F CALLS #4, MATCH_FILE ; 
33 O.€ BLBS 0, 7$ : 
04 ac OD 04 DECL LENF ; 


Bee 
SEARCH.B32; 
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Routine Base: SCODE$S + 0858 


122 bytes, 


; Routine Size: 


0 16 | 
JERE QBS:BE UPL SAEs dRath Bs rae iS 
! | 


! Open the file 


ROUTINE search_one_file : NOVALUE = 


tee 
Functional description 


Ww 


VEN 0 OD NOUNE WN O CONOUSW-O0a~ 


This routine opens one file as described by the fab. Control is then 
passed to one of the routines which look for one of the search strings 
and output any occurrences. 

Calling sequence 
search_one_file 

Input parameters 
none 


Implicit inputs 


fab - The FAB” for the file , sont rteet ten 
nam - The related NAMe bloc 
rab - The RAB for the slaees 


Output parameters 
none 
Implicit outputs 
none 
Routine value 

novalue 
Side effects 


Errors are signaled. Messages are put to SYSSOUTPUT. Global variables 
are updated. 


a a a ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


ee ee ee md aed ed od 
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7 BEGIN 
BF § soc 
§ status; 
IF NOT (status = SOPEN(FAB = fab)) ! Open the file 
5 THEN BEGIN 
tite error (srh$_openin, .status, fab, .fab Cfab$i_stv]); ! Signal the error 
RETURN; ! Exit 
4 ran (status = SCONNECT(RAB = rab)) ! Connect the rab 
38 BEGIN — 


16 
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; pe 1394 Pypoce cre = fab); ' Close the file 

3; 14 1395 file error (srh$_openin, .status, fab, .rab Erapstisty VB ! Signal the error 
+ 1093 1399 SN ae Ber 

: 1411 1 98 : 

3; 141 139 wdw_pre_buff = 0; ! Initialize the display windo 
; 1218 1aRy wdw ore cntr = 8 pa Lo 7 
; ele 1°3 wdv_ sub cntr = 0; 

3 nenum = 0; 

; 1618 1208 fil=totmat = 0; 

: 141 1404 2 filZfound = false; 

: 1213 1¢82 new_file = true; 

: 1420 1209 

: 1421 1408 ! Search the opened file 

3 14 ; 1409 : 

3; 14 1430 std_search_fiie(); 

: 14246 1411 

: 1? 5 L 1016 af, switch _statistics 

; ys ; Vale ert stat_totfil = .stat_totfil+¢1; ! Bump the count of files 

: 1429 1416 

; 14 141 IF .qua_log 

ark 1219 § pecan 

: 14 Q ios tmp_desc Cdsc$w_length] = .nam_block Cnam$b_rsl); ! Filename Length 

: 1434 1421 tmp_desc Cdsc$a_pointer] = .nam_block [nam$l_rsaj; | Filename address 

; ? 5 1 § if 31h. found 

: 14 1424 & BEGIN 

; 1438 1425 4 LOCAL 

3; 1439 14 § 4 m_Sp; ! Pointer to plural string 

: 1440 14 4 IF -f7l_totmat EQL 1 

3 1441 1428 4 THEN 

3 rr | i , ? ese"? = null_str ! No plural 

5 1464 1431 4 m_sp = ZASCID ‘es'; ! For matches. 

: 1oe7 1636 ? SIGNAL (srh$_matched, i, tmp_desc, .fil_linenum, .fil_totmat, .m_sp); 
; 14e? 1434 ELSE 

: 1448 1435 SIGNAL (srh$_nomatch, 2, tmp_desc, .fil_lLinenum); 

ie fet 

: 1451 1438 $Sclose(FAB = fab); ' Close the file 

; 1483 1440 17 END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


4 -BLKB 1 

00 00 73 8 P.ABZ: .ASCII \g3\<03<0> 
34348 9C P.ABY: .LONG 17694722 
0000000° 002A0 -ADDRESS P.ABZ 
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-EXTRN 
»PSECT 

00000 SEARCH_ONE FILE: 
W RD 


93 AX-11 Bliss-32 V4.0-74 
UTIL32.SRCJSEARCH.B32; 


SYSSOPEN 
SCODES,NOWRT,2 


R3,R4 


R5,R6 
AL, Ré 


nn 
aA 
run 
Son ad 
wcoa 
AMO 
za 

=z 
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oO 

“4 


“FOUND 
LTOTMAT, #1 
LL_STR, M_SP 


SRHS$_MATCHED 
. LTBSSIGNAL 


#SRHS_NOMATCH 
+0 LTBSSIGNAL 
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16 | 
SEARCH, 1B-Se0-1984 98:20:93 yaet} el ieg-32 v4.0274 Page 56 
65 01 FB 88 B9 cats #1, SYSSCLOSE 

04 BC RE 


i 
| 
; Routine Size: 189 bytes, Routine Base: S$CODE$S + 08D5 | 
} 
| 


a = A 2S 


H 16 | 
v50-500 er8Sb=1982 99:58:98 | OTT boPSRETsedatnib35, Page 43), 
| 

B_ 


; 14 ‘ eee 1 ROUTINE get_next_record (len, adr) : JSB_GETNEXREC = 

: 14 144 BEGIN 

. 1 8 | 
; 16 § 1445 Description: | 
: ee) 1209 i This routine gets the next record from the current input stream. 
3 1098 1008 ; It returns the yqnath and address of the record, The routine 
> 146 144 ! returns ‘'true’’ if a record is present, ‘‘false’’ if no record is 
> 1464 1450 ' found. Felling routines should treat all ‘false’ returns as 
3 1932 163) End of File. If an actual error occurs, it will be signaled. | 
; 1069 1438 
; 1468 1454 2 OWN_DZRO 
: rs 34 1ee2 trunc; 
; ian 1289 LOCAL | 
: 147¢ 1458 get_recsiz, 
ig. the ha | 
> 1475 1461 2 IF .new_file 
+ 1058 1208 $Y Macin | 
> 1478 1464 new_file = false; 

3 1479 1465 trunc = false; 

icy 1269 _ 

. | 
: 148¢ 1468 2 status = $GET(RAB = rab); ' Get a record | 
3 \en 1085 get_recsiz = .rab Crab$w_rsz); ! Copy length of record 

> 1485 1471 IF (.status EQLU rms$_rtb) OR 

3 1038 1076 (.status AND (.get_recsiz GTRU io_buff_sz)) 

: a8 ere § MM occin 

: 1289 1475 et_recsiz = io_buff_sz; 
; 1420 1678 TF ROT .trunc 

: 149¢ 1478 4 BEGIN 

3; 149 1479 4 trunc = true; 

3 1496 re 4 tmp_desc pgscgu_tongth? = .mnam_block fransbrsl): 

3; 1495 1481 4 tmp desc ([dsc$a_pointer] = .nam_block (nam$l_rsaJ; 

: 1608 1484 4 SIGNAL (srh$_truncate,2,tmp_desc,io_buff_sz); 
3 149 148 END; 
t 1295 1288 2 ELSES 

: 1500 14 IF NOT .status ! If error 
$1303 16 MENBEGIN | 
; 1308 1 i onhtens NEQ RMS$_EOF ! If not end-of-file 
: 1 8 1491 file qrror (srh$_readerr, .status, fab, .rab Crab$l_stv]); | 
; ! 1638 AS nenum EQL 0 | 
; 13 1494 3% BEGIN 

3 344 1623 ? tmp _gese pgschu. length) = snen_bhock nendy.ret ; 

; t es c$a nter) = .nam_bloc of : 

3 1511 1299 4 S1GRAL fsrhS null tile, . tmp_desc); 
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END; 
RETURN false; ! and exit 
END; 


5 ed 
~o 


—o st 


WENO ODNOVE WO OONOU Fur 


! Bump the statistics info 
| 


fil_lLinenum = .fil_linenum + 1; ! Bump the Line (record) cntr 
L EIF guitch statistics 
stat_totrec = .stat_totrec + 1; ' Bump the total too 
stat_totchr = .stat_totchr + .get_recsiz; ! Add the character count 
THEN 


advance_window(); 


! 
return the Length and address and RFA of the new record 


len = -get_recsiz; 
adr = .rab Crab$l_rbf); 


RETURN true; 
END; 


Sete Oe Ge Ge Ge Ge Ce Se Ge Se Ge GH Se Ge Se SH Se Ge SH Se Se Se Se ee Gee 
Ot ne tk a tt at tt ts 4 4 4) os tt ws 


DUP DPUPV IUPUI DPUDVLV SV IV LIVI LVLVSVIV IVS SVS VSS OS 


oe ne a ne ss _ 4  t t _ t e 


Pomc aa~sbsndae bb oe 
PWN OOONOUE WC O@ MFwr 


PUPP 


.PSECT SOWNS_DZRO,NOEXE.2 
$1368 TRUNC: “BLKB H 
.EXTRN SYSSGET 
.PSECT S$CODES,NOWRT,2 


E9 00000 GET_NEXT_RECORD: 


If .wdw previous ! Save the window if windowing is active 


08 0000" 


o 
~s" 


BLBC = NEW_FILE, 1$ : 1461, 
000' CF 94 00005 CLRB NEWTFILE > 1464 
000° CF D4 00009 CLRL —s TRUNC > 1465 
000000006 wit ae a9tt Tete Me csscer _— 
$ 0000' CF 3¢ O18 MOVZWL RAbeha GET RECSIZ > 1469 
000181A8 0 i 9010 CPL TATUS, #9872 > 1471 
43 E $ BLBC = STATUS, 4$ : 1472 
00000800 = 8F D1 CMPL T_RECSIZ, #2048 ; 
18 BLE F 
52 800 F 2$ MOVZWL #2048, GET_RECSIZ 3 1475 
ef # BLBS  TRUNC. 6 > 1476 
' CF 1 p c MOVL #1, TRUNC + 1479 
SS: $008 HR ESSE, SYN MA SSE: TRECBEE ie 
7 bf Re 4F MOVZWL #2028, -(SP§ =~ ; 1283 


; Routine Size: 


000000v06 


0001827A 


0000Vv 


0000' 
0000° 
000000006 


0000" 
0000V 


Routine Base: 


00 


0000' 
000000006 


0 a 
0000" 
00071080 
0000" 
0000' 
0000° 
0000' 
000000006 
0000' 
0000° 


0000° 


0000° 


DONO AN OMOWONOE LOOWWUMOE —VM LF OWOoOn 
— VIO MIT MWA SS HH BLE HOTWMVWNOOYP LMT 
OVOV TIO MMOCO-]-"VTCTl O00 O—-O NOC OU oO mM— "OVC O 
VMEMNOOCOW OOO - DO 9 OMVUWo Fo "90wW—-- wo" WoC" 


“ 
oO 


SCODES + 0992 


~Sep-1984 13:55:55 — EOFILS2°SRESSEARCH-O32; 


TMP _DESC 
A 


#SRHS_ TRUNCATE 
eee LIBSSIGNAL 


STATUS, 6$ 


giATus. #98938 

RAB+12 

FAB 

STATUS 

#14094512 

#4, FILE ERROR 

BIL LLINERUA 
NAM_BLOCK+3, TMP_DESC 
NAM_BLOCK+4, TMP_DESC+4 
pr Ess 


#SRHS$_NULLFILE 
53° LIBSSIGNAL 


FIL LINENUM 

STAT_TOTREC 

GET_RECSIZ, STAT_TOTCHR 
WOW_PREVIOUS, 7$ 


2 tet tat od 
NCWOSNOOM 


WW MMMM 
» Nae oye | 


PPP APASMATIVIVT 
DONO USWN—O 


PUP DPVDVLIVDPVSUPVSVSVSVSVSIVSVSVSIISVSIVISVS SIS 
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we —O 


bap App Ap ap 
AFERLS 


LS 


Sete ee Oe Oe Oe Oe Oe Oe Oe Oe OH Oe OH Ge Ge Oe Se Se Oe Oe Oe Se ee SH Se eee 
a ea ss tn — as — in —) bs as — 9 bb — 4 2 as 2 ss 4 2 


; Routine Size: 


K 16 
16-Sep-1984 02:20: AX-11 Bliss-32 Vs.0-74 P 60. 
12286871382 9:59:98 tOTiL 2.SRC SEARCH 83064 79°16) 
1525 1 ROUTINE advance_window : NOVALUE = | 
: § BEGIN | 
: 8 Increment the number of records available for display | 
1530 2 IF .wdw_pre_cntr LEQU .wdw_pre_recs 
1531 THEN 
1 § BEGIN | 
1 wdw_pre_cntr = .wdw_pre_cntr + 1; | 
: : wdu_ovtt = false; 
1 ELSE ! Window can't be contiguous 
: 5 , wdw_ovfl = true; ! with previous window. 
: i Scroll the window to accomodate the next record, wraparound if needed | 
1541 if -wdw_pre_buff GTRU .wdw_pre_recs ! if we have hit the end | 
1306 THEN ' then | 
154 wdw_pre_buff = 1 ! reset to top of array 
1544 E ! otherwise 
136? ; wdw_pre_buff = .wdw_pre_buff + 1; ! advance to next position | 
1547 Save the RFA in the previous record vector 
1383 CHSMOVE (rab$s_rfa, rab Crab$w_rfa), rfa_vec C.wdw_pre_buff-1,0,0,0,0]); | 
1551 RETURN; | 
1552 1 END; | 
007C 00000 ADVANCE_WINDOW: 
«WORD Save R2,R3,R4,R5,R6 : 1525 
56 0000" CF 9€ 0000 MOVAB WDW_PRE BUFF, R ; 
FO Ab F8 Ab D1 0000 CMPL § WDW-PRE-CNTR, WDOW_PRE_RECS 3 1530 
08 1A 0000C BGTRU 1$ 5 
F8 AB D6 4 INCL WDW_PRE_CNTR ; 1533 
25 Ab 9G 1 CLRB 3 =©wDW_OVFC ; 1534 
4 11 14 RB : 1530 
25 Ab 1 90 16 18: MOVB #1, WOW_OVFL ; 1537 
FO Ab $ pt A 2s: CPL WOW_PRE-BUFF, WDW_PRE_RECS ; 1541 
66 1 08 MOVL #1, WDW_PRE_BUFF > 1543 
¢ 1 BRB 4$ ; 
8 06 3$: INCL WOW_PRE_BUFF : 1545 
50 6 6 C 4$: MULL3 #6, WDW"PRE_BUFF, RO ; 1549 
0 30 A6 0 B ADDL2 RFA_VEC; R ; 
FA AO 0000" CF 06 F move #6, RAB+16, -6(RO) : 
4 RET 3 1552 
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ROUTINE std_search_file : NOVALUE = ! Searches the file 


lee 


PUSTSVSISISIVII 
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o 
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OOO OO OD OOOO 0000 08 SIN SI NSIS SIN NINA OAC AIT 


O00 Oo 
SRSSSRERLSSSVSSRASLSSSNS AP ww MSGS NSF ree Worn om > oes sores 


Ay lab ah Ab Ab Ab Ab Ab hb ib ib ib hb bb Ab Ab dh hb Ah hh hb db dh sh ah sh sh sh ah shal 
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ee em ed od od od dd 
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AAA NIAAA AIAN AID tt 0 ts 
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Functional description 


This routine searches one file (fab) for one of the search strings 
and outputs any occurrences. 


Calling sequence 
search_file 

Input parameters 
none 

Implicit inputs 


fab - The FAB” for the file specification 
nam - The related NAMe block 


Output parameters 
none 
Implicit outputs 


The filename and any occurrences of the string are put to 
SYSSOUTPUT. 


Routine value 
novalue 
Side effects 
Errors are signaled. Messages are put to SYSSOUTPUT. 


BEGIN 
WHILE 1 DO ! Main search loop 
BEGIN 
LOCAL 
rec_siz, ' Length of input record 
rec_ptr, ! Pointer to record 
status; 


IF NOT get_next_record (rec_siz, rec_ptr) 
EXITLOOP; 


! 
See if record contains search string 
IF std_match(.rec_siz, .rec_ptr) ! See if string is present 


_ 
o~ 


PAOSDAO o 
PILESELS POCO OCLC O eR 


NOUS WUN @$ O OONAUES WN O OONOUES WN SO OONOUS WR —O0OM 


o PAPA OSAAAOOSA AO 
NAME WN $0 ODNAUE WN $$ O OONAUS WN (OO OONAOULS AR OO ONOULS WO 
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a ee eS 
DEAE AAA AAAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAHAAAASAASSAO OOO OCOD 
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BDA SID D SIP APPA ADAP DP Vs SII SIO IA PAA AIA OUI FEW 
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IF .out_printing ! we know wdw_zero is off 
THEN 
BEGIN 
IF NOT .fil_found ! If not already found 
AND (.nam_block Cnam$v_ wildcard] OR ! and wildcard filespec 
-cnt_infile GTRU 1) ! or List of files 
Saat -Qua_heading ! And heading requested 
BEGIN ! Print blank, filename, blank 
erheout outputs? 0); 
srh$put_output (36, stars 


30); 
srh$put_output(.nam block Cnam$b_rslJ, .nam_block Cnam$l_rsaJ); 
prisputoutput(0, Oy; 


ELSE 
BEG] 
IF .fil_ found ! If already found, 
THEN 
BEGIN 
IF -wdw_ frame ! Separate the displays if the 
AND .wdw_ovfl ! windows are discont ' 
Das -qua_heading ! And heading requeste 
am srh$put_output(15, stars_30); 
END; 


' 
Put the previous records (if any) and the current record 


iF -wdw_pre_cntr LEQ 1 
THEN 


! pre_cntr LEQ 1 is our flag then the window EQL 1, 
just print the current record, allowing for reformat 


format_n_put(.rec_siz, -rec_ptr, .fil_linenum) 


ELS 
BEGIN 
LOCAL 
status, 
dx; 
Do a find by RFA to set to start of window 
rab Crab$b_rac] = rab$c_rfa; ! Set to random by RFA 
idx = (.wdw_pre_recs - .wdw_pre_cntr + .wdw_pre_buff + 1) 
OD (.wdw_pre_recs + 1); 
CHSMOVE(rab$s_rfa, rfa_vec C.idx,0,0,0,0], rab Crab$w_rfal); 
If NOT (status = $FINDTRAB = rabS)°! “Find the record 


BEGIN 
SIGNAL_STOP (srh$_rfaerr, 2, .rfa vec C.idx,0,6, 2.0) 
RETURN: -tfa_vec C.idx,4,0,16,0],°.status, .rab Crab (_stv)); 


ND 
rab Prekth vac = rab$c_seq; ! Back to sequential mode 
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oO 


BEGIN 
SIGNAL_STOP (srh$_rfaerr -ffa_vec C.idx,0,0,32,0], 


2 
-rfa_vec C.idx,4,0,16,04, -Status, .rab Crabd$l_stv]); 


1683 6 ' 
1885 ? Now do GETs to reread the records for the window 
16 : 6 INCRU i FROM 1 TO .wdw_pre_cntr ! Now put the records 
16 6 dO 
1688 6 BEGIN 
1689 6 LOCAL 
1939 ? ec tues te, ! Line number adjusted for wdw 
en, 
9 6 status; 
9 6 status = SGET(RAB = A rig 
94 6 len = .rab [rab$w_rsz]; ! Get actual length read 
95 6 IF (.status EQLU ems$_rtb) 0 
96 6 (,status AND (.len GTRU io_buff_sz)) 
97 6 THEN 
98 6 len = io_buff_sz ! Would have warned at Ist get 
99 6 ELSE 
00 6 
01 ? ! signal and stop 
6 
6 
6 


RETURN; 
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17 

170 

1704 

1705 

1706 6 ND; 

1707 6 actual_line = .fil_linenum-(.wdw_pre_cntr-.i); 

1708 6 format_n_put(.len, .rab Crab$l_rb6fJ, -actual_Line); 
1709 6 ND; 

1710 6 END; 

1711 6 wdw_pre_cntr = 0; ! First half of window is done 
ar 6 wdw sub_cntr = .wdw_sub_recs; 

171 6 ND 

1714 6 ELSE 

1715 69 : 

1716 7 IF _ .wdw_zero ! Print filename if /WIN=0 
1717 7 THEN 

wis if ae -fil_found ! Only need to do it once though 
1760 g os srh$put_output(.nam_block Cnam$b_rsl], .nam_block Cnam$l_rsa)); 
ise 7 fil_found = true; ' Set match flag for this file 
172 7 found_any = true; ' Set global match flag 
1724 , fil_totmat = .fil_totmat+1; i Count match for this file 
1736 7 ELSE ! We don't have a match : 

17 7 ! If we have subsequent Lines to display 
1728 7 IF .out_printing AND (.wdw_sub_cntr GTRU 0) 

1767 7 THEN 

1730 7 BEGIN 

1731 7 format_n_put(.rec_siz, .rec_ptr, .fil_linenum); 

1732 7 wdw_pre_cntr = 0; ! remember what we've shown. 

1733 7 wdw_sub_cntr = .wdw_sub_cntr - 1; 

fA +3 7 ND; 

1735 7 END 

He 7 END; 

73 7 RETURN; 

1738 7 END; 
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IF NOT .status ! If any other error 
THEN 
i 


1 
SEARCH 1$-sep-1964 99:20:95 yarct] oLieg-52 v4.0-742 Page $4 


-EXTRN SYSSFIND 


eS 


OFFC 00000 STD_SEARCH FILE: ; 

«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 1553 ; 

58 OOOV CF 9E 9002 MOVAB FORMAT_N PUT, R14 : : 
2A QOO0Ov CF 9E Bo8 MOVAB SRHSPUT OUTPUT R10 : 3 
9 00° CF 9E 0000C MOVAB NAM_BLOTK+ Ro, : ; 
58 0000' cf i 011 HOVAB WOW" PRE_ ENTR, : ; 
SE 8 § O16 SUBL2 #8, SP : ; 
24 6E 9E 91 1$ MOVAB REC_PTR, R4 : 1602 ; 
3 04 AE 3 1 MOVAB REC"SIZ, R3 : : 
FECD 00 BSBW GETNEXT RECORD : : 

01 50 c8 00 BLBS RO, 2$ : : 
4 000 g RET : : 

55 6E DO 00027 2$ MOVL REC_PTR, RS + 1699 ; 
54 04 AE p0 002A MOVL  REC7SIZ, R& : ; 
0000v 900 E BSBW STD “MATCH : ; 

03 30 é8 0031 BLBS RO, -3$ : : 
0132 31 00034 BRW 208 : ; 

03 29 AB cs 0037 3$ BLBS § OUT_PRINTING, 4$ + 1612 ; 
010F 31 00038 BRW 18$7 : ; 

35 A8 EB OOO3E 4$ BLBS sé FOUN + 1615 ; 

06 1 Ad EB 0004 BLBS NAM~B yess. 5$ + 1616 ; 
0c AB D1 0004 CMPL = CNT — “TNF ILE. in : 1617 ; 

1F 1B OO04A BLEQU : : 

18 31 AB €E9 O004C 5S: LBC § QUA_HEADING, 6$ > 1618 ; 
52 7C 00050 CLRQ = R2 + 1621 ; 

6A 16 00052 JSB SRHSPUT_OUTPUT ; ; 

53 0000" CF 9€ 00054 MOVAB STARS 30, R3 + 1622 ; 
52 1E 00 00059 MOVL #30 : ; 
6A 16 0005C JSB SRH$PUT_OUTPUT : ; 

53 69 DO 0005E MOVL  NAM_BLOCK+4, R3 + 1623 ; 
52 FF AS 9A 00061 MOVZBL NAM~BLOCK+3, R2 ; ; 
6A 16 00065 JSB SRHSPUT_OUTPUT ; ; 

52 7C¢ 9006? CLRQ = R > 1624 ; 

18 11 00069 BRB Re ; : 

16 5 a8 €E9 00068 $$: BLBC*éF'IL -FOUND, 9$ : 1628 ; 
12 C AB E9 OO06F 7S: BLBC  WDWTFRAME. 9 > 1631 3 
OE D AB £9 000 3 BLBC = WOW OVFL $ : 16 é : 
OA 1 AB 34 007 BLBC QUA “READING 9$ ; 163 ; 
53 0000" CF 0 MOVAB STARS 30, R R$ + 1635 : 
52 OF OD Be MOVL #15, R : : 
6A 1 gs: JSB SRHSPUT_OUTPUT : : 

01 8 01 99 $: CMPL  WDW_PRETCNTR, #1 > 1641 : 
0 14 00088 BGTR 10$7 ; ; 

54 24 «AB 00 OOBA MOVL FIL_LINENUM, R4 > 1646 : 
a3 6— DO 000 , MOVL REC"PTR, RS : 3 
2 04 AE 9 9 MOVL RECSIZ. R ; : 
6B 95 JSB FORRAT N_PUT : : 

OOAA 31 00097 BRW 17$ : ; 

OOCA C9 0 9A 10$: MOVB #2, RAB+30 > 1655 : 
51 FB AB 68 C OF SUBL3 WDW_PRE_CNTR, WDW_PRE_RECS, R1 > 1656 : 
51 08 ag C AG ADDL2 WDWTPRE“BUFF, R1 ; : 
50 FB AB 1 : AB ADDL3 #1, “WDW"PRE RECS RO : 1657 : 
7E 01 51 1 7A OOOAD EMUL ss #1. -R1, #1, ~=(SPS ; : 


D1 
SEARCH 16-Sep-1984 02:20: AX-11 Bliss-32 V4.0-74 P 5 
Whan500 12zSR=1382 99:58:88 | HONE Bk seg RE Mh Osoee age 193 
50 50 i i 0B EDIV RO, (SP)+ IDX, IDX ae 
oosc C9 38 BB46 é ; B MOVC3 #6, @RFA_VECCR6], RAB+16 : 
OOAC F 000C PUSHAB + 1659 
000000006 90 1 FB ¢ CALLS #1, SYSSFIND ; 
B g : cE BLBC STATUS, 14$ : 
00CA C9 94 000d CLRB = RAB+ : 1666 
57 68 00 0 05 MOVL § WDW_PRE_CNTR, R7 + 167 
5 1 p D8 MOVL #1,71 ; 
6¢ 1 0 DB BRB 16$ : 
OOAC C9 9F O00DD 11$:  PUSHAB RAB : 1677 
000000006 Q 61 f8 0 E1 CALLS #1, SYSSGET ; 
O0CE £9 C 000E8 MOVZWL RAB+34, LEN + 1678 
000181A8  8F 0 D1 000ED CMPL STATUS, #98728 + 1679 
O¢ 13 OOOF4 BEQL 12$ : 
13 6 €9 O00F6 BLBC STATUS, 14$ + 1680 
00000800 ‘8 32 D1 O00F CMPL LEN, #2048 : 
0 1B 00100 BLEGQU : 
52 0800 f 5¢ 00102 12$: NOV ZL #2048, LEN + 1682 
21 $4 E8 00109 13$:  BLBS STATUS, 15$ + 1684 
00B8 C9 DD 0010C 14$:  PUSHL RAB+12 + 1688 
50 DD 00110 PUSHL STATUS ; 
50 56 38 AB cI 00112 ADDL3 RFA_VEC, R6, RO ; 
7€ 04 Ad 3C 0011 MOVZWL 4(RO), -(SP5 : 
60 DD 0011B PUSHL (RO) + 1687 
02 DD 0011D PUSHL #2 ; 
000000006 8F DD 0011F PUSHL #SRH$_RFAERR : 
000000006 00 06 FB 00125 CALLS #6, LIBSSTOP : 
04 0012¢ RET + 1686 
50 55 68 C3 0012D 15$:  SUBL3 WDW_PRE_CNTR, I, RO + 1691 
54 50 24 AB C1 00131 ADDL FIL | INENUM. RO, ACTUAL_LINE 3 
53 0004 C9 v0 00136 MOVL RAB?40, R : 1692 
68 16 00138 JSB FORMAT_N_PUT : 
55 D6 0013p INCL I : 1670 
57 55 D1 O013F 16$: CMPL  I, R7 F 
99 1B 00142 BLEQU§ 1/$ ; 
68 04 O144 17$: CLRL  WODW_PRE_CNTR > 1695 
04 AB FC AB DO 00146 MOVL §§ WDW"SUB"RECS, WDW_SUB_CNTR 3 1696 
11 11 00148 BRB ; 1912 
0D B A8 £9 0014D 18$:  BLBC  WDW_ZERO, 19$ + 1700 
09 5 AB EB O19] BLBS FILTFOUND, 19$ + 1702 
3 69 a 01 ; MOVL NAM_BLOCK+4, R3 : 1704 
52 FF A9 A 1 MOVZBL NAM BLOCK+3, R2 g 
A 16 15¢ $B SRUSPUT OUTPUT : 
34 AB 0101 +8F B 13 19% MOV 257, FOUND_ANY : 1707 
20 AB 06 001 INCL  FIL_fOTMAT : 1708 
1B 11 00167 BRB 21 + 1609 
17 9 AB E9 00169 208 BLBC  OUT_PRINTING, 218 : 1712 
Ls ; 160 TSTL  WOWTSUB_CNTR : 
1 1 BEQL 218 : 
54 24 As D0 0017 MOVL FIL_LINENUM, R4 : 1715 
53 6E 00 0017 MOVL REC™PTR, RS : 
52 04 AE 00 0017 MOVL  REC™SIZ. R : 
6B 16 0017D JSB FORMAT _N_PUT : 
68 04 0017F CLRL WODW_PRE_CNTR : 1716 
04 A& D7 00181 DECL § WDWTSUBCNTR : 171 


SEAR ; 1b-se -1984 02:20: AX=-11 Bliss-32 V4.0-74 S 

v5.02 000 12286871382 95:50:92 LOTiL 2 see iscaRcn o3o4 Page $9 w5 
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; Routine Size: 392 bytes, Routine Base: S$CODE$S + OAA2 
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ROUTINE std_match (size, buf) : JSB_STDMAT = 


_ 
~ 
= 
oO 


\e4 
Functional description 


This routine checks to see if any of the search strings 
is present in the current record 


i Calling sequence 
std_match(.size, buf); 
i Input parameters 


size = the length of the record 
buf = the address of the record 


i Implicit inputs 


srhstr_desc - The array of search string descriptors 
cnt_srnstr - The count of search string descriptors 


NNN 
PDD SISSIES 


=—OOODNAOUES WN — O OONA NE WIN  O OOBNOAUES WN OOONOULS Win 


! 
! 
' 
! 
' 
! 
! 
! 
! 
! 
{ 
! 
' 
! 
1 
' 
' 
Output parameters 
! 
' 
1 
| 
i] 
' 
' 
1 
1 
' 
' 
' 
' 
! 
! 
! 


DDS DD DD DDD TTT BS BS BS BY BB BE ANI II rtunnororororonern) 


3 1723 1 

3; 3 1724 1 

3; 7 1725 1 

3; 3 17 8 1 

$3 17 1 

3 1 iv 8 1 

; } 1729 1 

: 1 1730 1 

3 7 1731 1 

3 3 17 § 1 

3 3 17 1 

3; 3 1734 (1 

3 1 1735 (1 

3 3 17 $ 1 

3 3 17 1 

3: 1 1738 1 

3 3 1739 1 

. 3 1740 1 

3 3 1741 1 

3% 17 ; 1 

; 3 17 1 

: 1 1744 1 

; 17h 1745 1 

; 176 1746 1 

3; 176 1747 «1 none 

: 176 1748 1! 

3: 176 1749 1°! Implicit outputs 

: 176 1750 1 

: 176 1751 1 none 

: 176 17 ¢ z= 

3; 177 17 1 ! Routine value 

3: 77 1754 1 

3 177 1755 (1 Q - None of the search strings was present 

"Bh ae 1756 1 1 = At least one search string was present 

3; 177 1757 1! 

s 177 1758 1°! Side effects 

3s i7r 1759 1 

3 177 1760 1 none 

: 177 1761 1 

3: 177 17 ; 1 !-- 

3; 178 17 1*« 

; 178 1764 BEGIN 

3 1786 1765 

; 1783 17 ¢ LOCAL 

3; 17 17 rec_ptr : REF BLOCK C,BYTEI, ! Pointer to string 
3 1785 1768 upc_buf : BLOCK Cio_buff_sz, BYTE], ' In case we must upcase 
; 1786 1769 match_ found; ! String found flag 
3; 178 1770 

3; 1788 1771 

3: 1789 1776 IF .qua_exact 

3; 1790 177 THEN 

; 1791 1774 rec_ptr = .buf ! Get the input record address 
5 1736 1775 

3 179 1776 BEGIN 

3 1794 177 upcase(.size, .buf, upc_buf); : Yocese the record 
3; 1795 1778 rec_ptr = upc_buf; ! Point it to new version 
3; 1796 177 END; 
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match found = .mat_and; ! 0 if OR or NOR, 1 if AND or NAND 
_ sdx FROM 0 TO .cnt_srhstr-1 
BEGIN 
LOCAL 
ptr; ! Pointer to found string 


ptr = CHSFIND_SUB(.size, “rec_ptr. 
-srhstr_desc des dsc$w_length] 
-srhstr_desc L.sdx, dsc$a_pointerd); 


IF_.mat_and ! If AND or NAND 
THEN 
BEGIN 
IF CHSFAIL(.ptr) 
THEN 
BEGIN 
match_found = false; 
EXITLOOP; 
END; 
END 
ELSE ! Else OR or NOR 
BEGIN 
IF NOT CHSFAIL(.ptr) 
THEN 
BEGIN 
match_found = true; 
EXITLOOP; 
END; 


END; 
IF .mat_negate THEN match_found = NOT .match_found; ! Is it NOR or NAND? 
ZIF switch _statistics 
THEN 
F IF .match_found THEN stat_totmat = .stat_totmat+1; ! Bump match count 


RETURN .match_ found; 
END; 


7E 57 7D 00000 STD_MATCH: 
MOV = RT, _-=(SP) : 1723 
7E 55 7D MOV RS. =(SP) ; 
3 F800 cE 3 MOVAB -2048(SP), sp ; 
p 0000" CF E BLBC QUA_EXACT, 1$ : 177 
8 5 b6 1 MOVL BUF: REC_PTR : 177 
C 1 BRB s 
53 F 3 15 1$: MOVAB UPC_BUF, R3 : 1777 
1 D 0001 mova SIZE, Ri : 
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<. 
SEARCH 1b- AX-11 Bliss-32 V4.0-74 P 
Sha n600 12xSR=1382 99:38:98 HONT Ee seg Be Mh O35 4 — 
0090v 0 00018 BSBW  —sdUPCASE ; 
: & 9%€ 3 MOVAB UPC_BUF, : 
f 0000" ; 2$ MOVZBL MAT AND, mATCH FOUND : 
F BRB 63" ; 
rs 0000" CF 4S ! 3$ PUSHAG SRHSTR_DE DESCCSDX) : 
; 0000'cr4s F PUSHAG Seats De C+4CSDx] ; 
68 54 20 5 3 ; BATCHC RS, (RO), SIZE, (REC_PTR) : 
3 36 D 4 MOVL Re, R ; 
C 45 4$ SUBL2 6, R : 
6 0000' i F 48 BLBC WAT LAND. 5$ : 
7 Mi 6 4F CLRL _ MATCH_FOUND ; 
0D 1 5 BRB 7$ ; 
§ 13 00053 5$ BEQL 6$ : 
57 i 06 004 MOVL a. MATCH_F OUND 
CB 55 0000' CF F2 005A 68: AOBLSS CNT_SRHSTR, SDX, 3$ : 
03 0000" CF £9 00 60 $: BLBC MAT NEGAT : 
57 7 bg 00 MCOML MATCH_FOUND, MATCH_FOUND F 
04 7 €9 00068 8$: BLBC  -MATCHFOUND. 9 ; 
0000" cf D6 0068 INCL STAT_TOT TMAT’ . : 
50 7 0 Ope 9$: MOVL MATCRA_FOUND, RO 3 
5E 0800 CE 9E 000 é MOVAB 2048(SP), SP F 
0160 «BF BA 90077 POPR #OM<R5, Pri, 3, R8> 


; Routine Size: 124 bytes, Routine Base: S$CODE$S + OC2A 
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: 1841 1823 1 ROUTINE file_error ( msg, ! The SEARCH message code 3 
3 1 rX: 1824 1 rms_status, ! The main RMS error code ; 
3 1 1825 1 fabB : REF BLOCK C,BYTEJ,! Address of FAB for file 3 
> 1844 1 § 1 stv) = : The RMS STV value : 
>; 1845 1 § BEGIN ; 
3 3 re 1 ; 
> 184 1 LOCAL ; 
; 1368 : : mam_blk : REF BLOCK C,BYTE]; ! Pointer to the name block : 
; 1339 ! § nam_blk = .fabb Cfab$l_namj; ! Get pointer to the name block ; 
3 1826 1834 IF_.nam_blk Cnam$b_rsl] GTRU 0 : 
3 3 1835 THEN : 
> 1854 \3 ° BEGIN : 
; 1855 1 tmp_desc Cdsc$w_length]_ = .nam_blk Cnam$b_rsl); ! Create file name desc : 
; 1338 \3 3 tmp_desc [dsc$a_pointer] = .nam_blk [nam$l"rsaJ; t eee 

; 1858 1840 ELSE IF .nam_blk Cnam$b_esl] GTRU 0 

3; 1859 1841 THEN 

; 1860 1366 BEGIN 

; 1861 184 tmp_desc Cdsc$w_length]_ = .nam_blk preasp.est ; ! Create file name desc 

3 1866 1844 tmp_desc dsc$a_pointer] = .nam_blk Cnam$l_esaJ; 3 eee 

3; 186 1845 EN 

; 1864 1368 

; 1865 184 BEGIN 

: 1866 1848 tmp_desc Cdsc$w_length)_ = .fabb (Cfab$b_fns); ! Create file name desc 

: 1867 1849 emp Cenc dsc$a_pointer] = .fabb [fab$l_fnal; | eee 

; 1868 1850 END; 

; 1869 132) 

3; 1870 1 26 IF .rms_status EQL rms$_dme ! Does RMS have enough memory? 

; 1871 185 THEN ! No, print actual error 

3 1376 1854 BEGIN 

3 i 1332 IF .wdwipre_recs GTR 0 ! Do we have a window? 

; 1902 1887 SIGNAL_STOP (.msg, 1, tmp_desc, .rms_status, .stv, srh$_wdw_maxprev) 

3 1879 1859 SIGNAL_STOP (.msg, 1, tmp_desc, .rms_status, .stv, srh$_insvirmem) ; 

; 1378 1309 

: 187 1861 ELSE 

3 1330 1306 SIGNAL (.msg, 1, tmp_desc, .rms_status, .stv); 

; 188@ 1864 2 RETURN (.msg OR %X'10000000"); ! Don't Let SEXIT signal also. 

; 188 1865 

3; 1884 1866 END; 


0004 00000 FILE_ERROR: 


0000' CF 9 HOVAB TAP pes R2 ‘Poms 
i Ac D 5 MOVL ABB Ri : 1832 
0 A MOVL O(R1), NAM_BLK ; 
AO F TSTB (NAM_BLK) > 1834 
08 : BEQL & ; 
62 03 Ad 98 0001 MOVZBW 3(NAM_BLK), TMP_DESC : 1837 


vO4~000 


04 A2 04 A 18 
1 10 
0B 4 ze 
6 AO 9 
» eo 
0 D 
6g 4 Al F 
04 A f Al OD 
00018404 SF AC OD 
2A (1 4 
0000' f 9 2 
000000006 F 4 
£8 one 
00D712F F DOD b2 
1 AC OD 
0 as DD 
5 OD C 
01 OD 
04 AC OD 6 
00000000G 00 99 fe Bex 
19 AC 0D 0006C 
0 as 0D ie 
5 DD 00072 
01 DD 00074 
04 AG DD 00076 
G F 
00000000 00 0079 
0 04 AC 10000000 ES 0080 


; Routine Size: 138 bytes, Routine Base: $CODE$S + OCA6 


-Sep-1 
~Sep-1 
18: 


2$: 
3$: 


6$: 


7$: 


MOVL 

TSTB 
v2 

MOVZBW 
VL 


3he 93:38:98 «FONTS BbSegsBeRvA-O338 


4(NAM_BLK), THP_DESC+4 
sepr 


(NAM_BLK), TMP_DESC 
(NAM“BLK), TMP DESC 


(R1), TMP_DESC 
(R1) TMPLDESC +4 
RMS _STATUS, #99540 
WOW_PRE_RECS 
#SRHS$_WDW_MAXPREV 
#14095090 
RMS_STATUS 

R2 

#1 


MSG 
#6, LIBSSTOP 
7$ 


+4 


uw. 


STV 
RMS_ STATUS 
R2 


#1 
MSG 

ge b 19951 GNAL 
#268435456, MSG, RO 
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; } } er } ROUTINE upcase(in_siz,in_ptr.,out_ptr) : NOVALUE JSB_UPCASE = 
5 } 58 ! 6 ! Functional description 
; 1890 1871 1! This routine converts a etring to uppercase. In testing it 
: 1891 1 ue .% appears to be faster to d9 th 5 sort of loop than execute the 
3 1336 } ie } MOVTC instruction on the 11/780. 
3 1398 ' ie } Input parameters 
3 38 1 § 1} in.siz = size of input record to convert 
: 189 1 rf 1! in_ptr = address input of record to convert 
: } 28 ! 4 } } ouft_ptr = address of output record buffer 
; 1900 18 1 1 ! Output parameters 
3; 1901 1 § 1! 
3; 190 18 7% Input record copied to output record buffer and all 
; 190 eRe i! lowercase alphabetic characters converted to uppercase. 
3: 1904 1885 1! 
; 1905 1886 len 
: 1906 1887 BEGIN 
3; 1907 1888 REGISTER 
3; 1908 1889 char: BYTE; ! Character to test 
3: 1909 1890 
; 1910 1891 DECR count FROM .in_siz-1 TO 0 DO ! Upcase the characters 
: 1911 1998 BEGIN 
3 Hb ar 189 char = CHSRCHAR_ACin_ptr); ! Get next character 
3; 191 1894 IF .char GEQU ‘a' ! Lower case letter? 
3 1914 1895 AND .char LEQU ‘z' 
3 1915 1998 THEN 
: 128 189 char = .char - %20°40'; ! Convert to upper 
; 191 1898 CHSWCHAR_A(.char,out_ptr); ! Move character to buffer 
; 1918 189° END; 
3 1919 1969 END; 
15 11 000 YeCASE: BRB 3$ : 1891 
50 8s 90 00002 1$: MOVB (IN_PTR)+, CHAR : 1893 
61 ~=-BF 91 B88 CMPB HAR, #97 : 1894 
9 1F 00009 BLSSU 3 
7A sOBF 3} Bee CMPB HAR, #122 ; 1895 
A F trey FY 
50 3 0011 SUBB #32, CHAR 3; 1897 
83 0 14 33 MOV CHAR, (OUT_PTR)+ ; 1898 
£8 1 F4 0 17 3$ SOBGEQ COUNT, 1$ > 1891 
05 OOO1A RSB : 1900 


; Routine Size: 27 bytes, Routine Base: $CODE$ + 0D30 


1 
SEARCH 18-56 -1984 02:20: AX-11 Bliss-32 V4.0-74 Page 73 SE) 
y54e000 1 ~3e07 1384 96:59:98 UTIL32.SRCJSEARCH.B32; ° (21) V 
; 13 1 13 1 ] ROUTINE format_n_put(in_siz, in_ptr, Line) : NOVALUE JSB_FORPUT = ; 
: 13 g 19 § | Functional description ; 
> 1925 1905 1/ The main reason to reformat is to prevent matches in .EXE and : 
3; 19 8 19 $ 1! .OBJ files trom setting terminals in strange states. The ; 
3 19 1! /FORMAT=PASSALL qualifier is included to allow for exotic 3 
; 13 3 1308 ! } character sets. : 
: 1930 1910 1! This rou ne copies the input buffer to the output file. If ; 
3; 1951 1911 1! PASSALL is in ot fort. the input buffer is simply copied to output. 3 
3 19 § 1316 1! If another format is active, a routine will be called to do the ; 
; 13 ? a ; } reformatting. : 
; 13 5 a : Input parameters ; 
: 19 1919 1 in.siz = size of input record to convert : 
3 19 1318 { ! in_ptr = address of anput rocere to convert 3 
3; 1939 191 eo Line = Line number to print if .NUMBERS is true 3 
3; 1940 1920 1! 3 
3 136) + 1 ! } Outputs : 
: 1908 19 g 1 The Line will go to the output file if one exists. : 
: 1946 1924 1! 3 
1908 1998 2 BEGIN 
$ 13% Te Bion 
> 1949 1929 en, ! Qutput Length ; 
3 1320 1% ? op : REF BLOCK C,BYTE); ! Local output pointer : 
: 1958 19 é IF NOT .out_printing ; 
3 195 19 T 3 
3 I Ree 1% 7 RETURN; ! Nothing at all to do : 
: 1956 1936 3 IF (.format EQL formpassall) AND (NOT .qua_numbers) : 
: 1986 1988 NaeciN ; 
; 1959 1939 srheput_output(.in_siz, ein ptr); ! Move the buffer. ; 
3 1309 4 “At N; ! And go back to caller : 
i 136 8 Pay 
: Hse ieee We will have to copy the buffer for Line numbers or reformatting, or both ; 
;1 Hb 4 len = .in_siz; ! Nothing output yet ; 
; 1967 194 op = .output_buff; i Set to start of output 3 
3 199 1969 IF .qua_numbers ; 
3; 1970 1950 THEN 3 
3: 1971 1951 BEGIN 3 
3 1306 1336 LOCAL 3 
|: tte 7 
: 1908 1935 $  tmp.dese fdscfy_ length), = 7: 
3 mp desc (dsc r) : 3 
{1999 1989 & —sFPPROT tstar se SFAOCEASCID "CBSL *, 0, tmp.desc, .Line?) : 
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uw 
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333333 
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ooo 
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EN 
SIGNAL STOP (.stat); ! Signal the error 
len = 7+.Ten; ' Bump our Local Length 
2. = 7+,0p; ! Bump the pointer te the output 


CASE pformet FROM form_text TO form_nonulls OF 


orm_text): 
ign = format_action_text (.in siz, .in_ptr, .op); 


Cform_passall 
nets A ein, iz, -in ptr, .op); ! Move the input buffer 
Cform.dump, form_nonul 5 
Len = format “action _dump (.in_siz, .in_ptr, .op); 


TES; 
srh$put_output(.len, .output_buff); ! and then print 
RETURN; 
END; 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
00 00 00 O09 4C 3 Bs 1 O2A4 P.ACB: .ASCII \!6SL\<9><0><0><0> 3 
0£0005 00 i P.ACA: .LONG 17694725 : 
tte 0000' 00280 .ADDRESS P.ACB : 
-PSECT $CODES,NOWRT,2 
03E0 8F 8B 00000 FORMAT_N PUT: 
Pus #*M<R5,R6,R7,RB,RO> : 1901 
57 52 7D 00004 MO 0" R2, R : 
03 0000' (CF 58 07 BLBS OUf PRINTING, 1$ + 1932 
0083 0c BRW $ : 
01 0000' cf D1 OF 1$: CMPL § FORMAT, #1 + 1936 
A iF 14 BNEQ : 
95 0000° cr E 16 BLBS | QUA_NUMBERS, 2$ : 
2 7 70 00018 MOV 1N S12, Re : 1939 
6 11 1 BRB 1$ ; 
59 , 6 2$ MOVL IN_SIZ, LEN : 194 
56 9000" CF D MOVL OUTPUT BUFF, OP : 194 
2F 000° CF E BLBC QUA. ERS, 4$ + 1949 
9000" CF 7 80 MOVW #7,” TMP_DESC > 1955 
0000" CF 6 D MOVL OP, “DESC +4 ; 1996 
bb PUSHL LINE : 195 
0000' cr F 9 PUSHAB TMP_DESC : 
E p4 CLRL Os =CS : 
0000' CF 9F F PUSHAB P.ACA ; 
000000006 99 4 FB 3 CALLS #4 SYS$F AO ; 
E 4A BLBS STAT, 3$ ; 
DD 00040 PUSHL + 1959 
000000006 00 FB OOO4F CALLS #1, LIBSSTOP ; 


ee ee a a i ea a 


Se Pe Se Se Se See Se Se Se Se Se Se Se oe 


vOen600 180-13 99:39:98 = OTT bo SA SseARcncoses Page at} 
9 97 C6 ah 3$: ADDL a7. LE LEN : 1960 
we ; ADD ; 1961 
0019 0019 wi — 0068 ss a5 ¢§ COORD eh: om. ; tape 
: a cs Ee 7 
00 Ov , BBW FORMAT ACTION. TEXT ; 
66 68 7 f 7$ MOVs 1N,SIZ, (IN_PTR), (OP) ; 1969 
50 é tb 18 BS MOVE OF» RO RO - ; 1971 
00 ov j BSBW HORRAY’ ACTION_DUMP : 
9 1) 9$: MOVL L 3 
33 0000° cr D 7 10$: MOVL Sret BUFF, R3 > 1974 
2 9 08C MOVL 3 
0090v 2 OO8F 11$ BSBW Shige t OUTPUT : 
03E0 F BA 00092 128 POPR #°M<R5,R6,R7,RB,RI> ; 1978 
05 00096 RSB ; 


; Routine Size: 151 bytes, Routine Base: SCODE$ + 0D4B 
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; 3) 1386 1 pot ine format_action_text (len, inp, outp) : JSB_FORACTTEX = 
; 1 
3 19 ' Define a table of substi 
: Soba 1% § a ubstitute strings for control characters. We define a byt 
068 13 4 | woop Rays ys gh ky, “3 A zero tn the table means no substitution, an aaaere ta ie iiteet dren 
1a Be heat 
$009 13 8 BIND LIT = SOWNS_CRF (WRITE); ! Place string in crf along with table : 
: 319 1385 peple pees = UPLIT BYTE (0); 
: 201¢ 1991 “table : VECTOR (256, BYTE] PRESET ( 
: 3014 1338 ax! 0° = (UPLIT BYTE (Zascic ‘NUL") = table_base) 
: sole %x'01 = (UPLIT BYTE (Z%ascic 'SOH') = table base). 
: Sia 1330 a : . age Byte (Rascic "STX') = table-base), 
: 5017 1996 rea") = CUPCET BYTE (Loscie "Bors = feptecbeses. 
: 2018 1997 1x05") = (UPLIT BYTE (Hascie ‘ENG') = table-base), 
i 2019 1998 x'06'] = (UPLIT BYTE (Lascic (ACK!) - tablerbase). 
2031 2000 ix'O8') = (UPLIT BYTE (Hescie ‘BS*) = table Bases.” 
: $3 ; 001 Zx'GE'J = (CUPLIT BYTE (Zascic ‘'SO") = 4 po tot 
i 2028 098 Ix'OF'] = (UPLIT BYTE (Hascie 'SI') = tablerbase), 
4 025 00 Zx'10°J = (UPLIT BYTE (Zascic ‘DLE') - tabs os } 
+ 2026 004 %x'11'] = (UPLIT BYTE (Zascic 'DC1") - Sable’besei. 
: $058 005 Zx'12')] = (CUPLIT BYTE (Zascic ‘DC2') = teble"bese), 
4 $058 006 %x'13'] = (UPLIT BYTE (Zascic a tath - tabla ’bane), | 
4 0 007 Zx'14'] = (UPLIT BYTE (Zascic ‘DC4') - t plevbase : | 
i 2089 008 reds) = CUPLIT BYTE (Kescic 'NAK'D = tablecbases: 
: Soa 009 BX ,18, = (UPLIT BYTE (Zascic ‘SYN') - cep re.peeete 
; S033 010 xi17'] = (UPLIT BYTE (Zascic (E1B)) - table-base). 
: $08 O18 ix'19') = (UPLIT BYTE (hescie ‘EM’) ~ table Bases,” 
: 203 201 Ix'JA') = (UPLIT BYTE (Zascie ‘SUB') ~ tabl@_baseS 
; 014 1x'18'} = (UPLIT BYTE (Zascic "ESC') - table-base). 
; 2036 015 ix") = (UPLIT BYTE (Hascie ‘Fs") = table Base), 
: 5038 O16 ix'1D') = CUPLIT BYTE (Kascie '6s') = tablezbase). 
: $Oe8 01 Zx"1E')] = (CUPLIT BYTE (Zascic ‘RS') - tebis base), 
: 2040 018 Zx'1F'] = (UPLIT BYTE (Zascic 'US') = table-base), 
: 2040 019 Xx'7F'] = (UPLIT BYTE (Zascic 'DEL') - tablé_base) 
2 she 020 %x'80'J] = (CUPLIT BYTE (Zascic ‘x 5+) - table_b oe | 
. § 021 %x'81'] = (CUPLIT BYTE (Zascic ‘'x81') - toble"base). 
: bei § : Xx’ ¢. = (UPLIT BYTE (Zascic 'x82') - table7base), | 
+ 2045 %x'835') = (UPLIT BYTE (ascic ‘x :} - table"base). 
; 024 %x'84') = (UPLIT BYTE (Zascic ‘IND') - table base). 
. B68 025 Zx'85'} = (UPLIT BYTE (Zascic "NEL') - dp owed f | 
. 04 0 $ %x' $ = (UPLIT BYTE (Zascic ‘SSA") - teptenbese). 
: $008 0 Ix'E7"] = (UPLIT BYTE (Zascic 'ESA') - table-base). 
: $085 0 3 Ix" ¥ = (UPLIT BYTE (Zascic ‘HTS') - Sable" bess?. 
: %x'89'] = (UPLIT BYTE (Zascic ‘HTJ') = table b aah | 
: $051 0 Ix'BA') = (UPLIT BYTE (Zascic 'VTS") = tablevbase). | 
‘ O36 1 Ix'8B')] = (CUPLIT BYTE (Zascic ‘PLD') - ape pase): | 
: S036 Eecays] = (UetIt BYTE (Eanele Sel") ~ tables Bose), | 
: 5055 4 Brees = CUPTAT BYTE (Eoscde "S62" = cobte bane | 
; ‘BE') = ascic *$S$2") - 
: $056 § PeeBeey = (UPLHT BYTE Choncis "egse) = tab|G_pasel. | 
| 
| 


sitio 


2 
-Sep-1984 02:20: AX-11 Bliss-32 V4.0-74 
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ic 'DCS') = table_base), 
i - table_base), 
- table_base), 

- table_base), 

- table base), 
- table_Base) , 
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a 
7 
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Cc 
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! Hang a Label on the end 


Also test the assumption about storage format. 


ble LSSA table_top)); 


! Input pointer 
! Output pointer 


Convert the controls 


Local character variable 
Pointer to string for expansion 


Get next character 
See if the substitution offset is zero 


Turn the offset into an address 
Start with the open bracket 

Move the length to a register 
Copy the ASCIC strin 

Move the putout pointer 

And finish with the close bracket 


Offset is zero, just move the char 


; 2057 0 %x'90'] = (UPLIT BYTE (Zascic 

; 20 3 0 5 a9" = (UPLIT BYTE (Zascic ‘Pu 

; 20 8 8 ix’ . = (UPLIT BYTE (Zascic ‘PU 

; 2060 9 %x'95'] = (UPLIT BYTE (Zascic ‘STS' 
; 2061 40 %x'96'J] = (UPLIT BYTE (Zascic ‘CCH’ 
: bO¢ 41 %x'95'] = (UPLIT BYTE (Zascic 'Mw') 
: rk: ae 4 = (UPLIT BYTE (Zascic ‘SPA’ 
; 2064 04 %x'97'] = (UPLIT BYTE (Zascic ‘EPA' 
; 2065 044 %x'98') = (UPLIT BYTE (Zascic 188. 
; B08 045 Zx'99'} = (UPLIT BYTE (Zascic 'x99' 
3; 206 8 Rx'9A'] = (UPLIT BYTE (Zascic 'x9A' 
; 2068 ¥e %x'9B'J] = (UPLIT BYTE (Zascic *CSI' 
3; 2069 46 %x'9C') = (UPLIT BYTE (Zascic 'ST') 
: 2070 049 %x'9D'] = (CUPLIT BYTE (Zascic ' 

; 2071 050 Zx"9E') = (CUPLIT BYTE (% 

3 ore 051 Zx'9F*') = (UPLIT BYTE (Zascic ‘APC’ 
3; 207 $26 Zx"AO')] = (CUPLIT BYTE (2% 

: 2074 05 C&x'FF'J = (CUPLIT BYTE (ascic ‘xFF' 
:; 2075 054 D 

; 2076 055 table_top = UPLIT BYTE (0); 

3 sore p26 

$009 088 

; 2080 059 ' include the length of the table itself. 

: et oct defined both OWN and PLIT to the same psect.) 

; 208 06 Sassume ((table_top-table_base) LEQ 511); 

; 2084 06 Sassume ((table_base LSSA table) AND (ta 

; 2085 064 

; 2086 065 REGISTER 

; 2087 06 ip, 

: 3086 068 - 

3; 2090 069 ip = .inp; 

: soo) 070 op = .outp; 

3 O36 071 

; 209 443 DECR count FROM .len-1 TO 0 

3; 2094 07 dO 

; 2095 074 BEGIN 

3; 2096 075 REGISTER 

; 2097 076 char, 

; 2098 077 string : REF VECTOR C, BYTE); 

; 2099 078 

$ 190 34 char = CHSRCHAR_A (ip); 

: 2101 80 IF (string = .table [.char]) NEQ 0 

3 198 081 THEN 

3: 210 Ong 4 BEGIN 

3 2104 083 4 REGISTER 

; 2105 084 4 len; 

3 2106 085 4 ae -string + table_base; 

: 2107 $36 4 CHSWC A ('<"', op); 

: 2108 4 len = .string (6); 

3; 2109 0 3 4 CHSMOVE (.len, string [C1], .op); 

: 2110 0 4 op = ,op+.len; 

3 2111 0 4 CHSWCHAR_A ('>', op); 

: 116 44 4 END 

: 211 92 3 ELSE 


! Make sure that all of the strings total fewer than 256 bytes, so that byte offsets will work. Note 
that BLISS stores the above table Like <table-base><ascic-strings><table><table-top> so that we must 
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! Pass the new Length back 


CHSWCHAR_A (.char, op); 
-Op-.output_buff; 


END; 
RETURN 
END; 
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; Routine Size: 


F 2 
1er8Sb=13Re 98:38:98 
3 SUBL2 OUTPUT BUFF , R? 
4 MOVL = R? RO 
i POPR #°A<R6,R7,RB,RI> 


nth Oi legere aie et 
UTIL32.SRCJSEARCH.B32; 
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i } 9 038 1 ROUT ANE format_action_ dump (len, inp, outp) : JSB_FORACTDUM = 

: 21 1 

3 21 § 1 ‘ ! Define a table of substitute strings for control characters. We define a byt t f off 
; 2124 1 ! ASCIC subs ture strings. A zero vn the table means no substi n hozere 18 the © on ire 
§ i the base of the susstitute strings. tution, an non-zero is the offset from 
: 21 105 2 PSECT 

: : 3 1 $ Ba = SOWNS_CRF (WRITE); ! Place string in crf along with table 
: ; , 138 table_base = UPLIT BYTE (0); 

; 21 § 136 “table : BCT R (256, BYTE) PRESET ( 

3: 21 111 x'00'J = CUPLIT BYTE (Zascic 'NUL') = table_base), 
3 2134 1g Rx'Ol'J = (CUPLIT BYTE (Zascic ‘SOH’) - table_base), 
3; 2135 11 Rx'02*) = (UPLIT BYTE (Zascic 'STX*) = table_base), 
: 2136 114 %x = (UPLIT BYTE (Zascic ‘ETX') = table_base), 
3 2137 115 %x'04') = (UPLIT BYTE (Zascic ‘EOT') = table_base), 
3; 2138 118 %x'O5'] = (UPLIT BYTE (Zascic 'ENQ') = table_base), 
3; 2139 11 %x'06"J = (UPLIT BYTE (Rascic 'ACK') = table base), 
; 2140 118 Xx = (UPLIT BYTE (Zascic ‘BEL*) - table base), 
> 2141 119 %x'08'J] = (UPLIT BYTE (Zascic ‘'BS') = table_Base), 
: 145 120 %x'09') = (UPLIT BYTE (Zascic ‘HT') = table_base), 
3 214 121 Z%x'OA')] = (UPLIT BYTE (Zascic 'CR') = table_base), 
3 2144 1 ; %x'0B'] = (UPLIT BYTE (Zascic 'LF') = table_base), 
: 2145 1 %x'OC') = (UPLIT BYTE (Zascic 'VT') = table_base), 
: 2146 124 %x'OD'J = (CUPLIT BYTE (Zascic ‘FF') - table_base), 
3 2147 125 %x'OE'J] = (UPLIT BYTE (Zascic 'SO') - table_base), 
: 2148 126 Zx'OF*'] = (UPLIT BYTE (Zascic ‘'SI*) = table_base) 

3 2149 127 %x'10') = + CUPLIT BYTE (Zascic EF = table_base), 
: 2150 128 Z%x'11') = (CUPLIT BYTE (Zascic ‘'DC1') = table_base), 
3; 2151 4 oxi, = (UPLIT BYTE (Zascic Begss - table _base), 
3 136 130 ix'13'J] = (UPLIT BYTE (Zascic ‘DC5') = table_base), 
; 215 131 %x'14'] = (UPLIT BYTE (Zascic 'DC4') - table_base), 
3 size 1 ; %x'15')] = (CUPLIT BYTE (Zascic ‘NAK') = table_base), 
3; 2155 1 ax 48, = (UPLIT BYTE (Zascic ‘SYN') = table_base), 
3; 2156 134 Zx'17'J] = (UPLIT BYTE (Zascic ‘ETB') - table_base), 
3: 2157 135 et = (UPLIT BYTE (Zascic ‘CAN') = table base), 
; 2158 1 § %x'19'] = (UPLIT BYTE (Sascic ‘EM') = table_Base 

3; 2159 1 Zx"1A'] = (CUPLIT BYTE (Zascic ‘SUB') - tablé_base), 
: 2160 138 Zx'1B'] = (CUPLIT BYTE (Zascic ‘ESC’) = table base), 
: 2161 139 %x'1C') = (CUPLIT BYTE (Zascic ‘'FS') - table_Base), 
; 196 140 Zx'1D')] = (UPLIT BYTE (Zascic ‘GS') - table_base), 
: 216 141 Zx'1E°) = (CUPLIT Byte (Zascic 'RS') = table_base), 
3: 2164 146 Zx'1F*}) = (CUPLIT BYTE (Zascic ‘US') = table base) 

+ 2165 14 %x'7F'} = (UPLIT BYTE (Zascic ‘DEL') - tablé_bases, 
3 166 144 ix‘ 9. = (UPLIT BYTE (Zascic 'x80') - table_base), 
3: 216 145 %x'81'] = (CUPLIT BYTE (Zascic ‘x81') - table_bas 

: 2168 148 ix' ¢. = (UPLIT BYTE (Zascic ‘x ¢.} = table_base), 
; 199 14 %x'85') = (UPLIT BYTE (Zascic ‘x85') = table_base), 
: 2170 128 %x'84') = (CUPLIT BYTE (Zascic ‘IND') = table_base), 
3; 2171 14 %x'85') = (UPLIT BYTE (Zascic ‘NEL') = table_base), 
; 176 1 9 ix' ¢ = (UPLIT arte (Zascic ‘SSA') = table_base), 
3 217 1 %x'87')] = (CUPLIT BYTE (Zascic ‘ESA') = table_base), 
3: 2174 1 § ax’ 3 = (UPLIT BYTE (Zascic ‘HTS') = table_base), 
3; 2175 1 x'89'} = (UPLIT BYTE (Zascic ‘HTJ') = table_base), 
3: 2176 154 %x'BA'] = (CUPLIT BYTE (Zascic ‘VTS") = table_base), 


SEARCH iSo$eo-1964 02:20:05 att} fn4-52 4.05749 Page 2 


: 1 7 1 5 %x' 1 = (UP 

; LIT BYTE ¢ ‘ ') « 

Hi: i Peles) © WMRLHT BYE ddteele SBtY). = tablesbaap : 
1 Xx'BE'} = (UPLIT € #852") = "table. pase ; 
: sist } 3 ax . LIT BYTE (Rascic $94 ) = tablé_baseS, ; 
: gi 160 AxiBFid = (UPLIT BYTE (Bascic (83°) - table_base), ; 
: (Zascic ‘DCS') - 4 ‘ 
. i 184 Ix'91') = (UPLIT BYTE (Lascic Pu") = feble-bese), : 
: 5185 196 ax’ ¢. = (UPLIT BYTE (Zascic 'PU2') = table-base), : 
: 5 164 Xx'93') = (UPLIT BYTE (Zascic 'STS') - table-base), : 
: 5189 165 rigeeg 5 (UBLEE BYTE (gescte ,ECu) _- taplerbase) 
; 189 123 Bx $ = (UPLIT BYTE (asc ¢ 'SPA') = teats at é 
: $190 18 %x'97') = (UPLIT BYTE (Zascic ‘EPA') - table-base), : 
: $194 : 3 ix! 3. = (UPLIT BYTE (Zascic 498") - tablesbase), é 
: 219 196 %x'99'] = (UPLIT BYTE (Zascic 'x99') = table-base), : 
; 198 171 x'QA'} = (UPLIT BYTE (Zascic 'x9A') - table-base). : 
: $194 179 rigeed 5 (OLE BYTE Goascie C6H? >, tablepbase) 
i 3199 178 ix'90'] = (UPLIT BYTE (Lascie ‘OSC’? - table bases 
: 5197 178 Rx'9E'] = (UPLIT BYTE (Zascic 'PM') = table Base), : 
; 2198 17 Ax'9F'] = (UPLIT BYTE (Zascic ‘APC') = table base) : 
: 2199 179 eh = (UPLIT BYTE (Zascic ‘xAO') = table"base), é 
: 00 178 IND x'FF'} = (UPLIT BYTE (Zascic 'xFF') = table-base)5; ‘ 
: table_top = UPLIT BYTE (0); ; 
3 ge 180 - . ! Hang a Label on the end - 
; 220 181 ! Make sure that all of the stri ; 
: 380s 183 3 | that &LiSs'stores ‘the above table Like <taple-posercascicestringsSctablesctablertop> 30 that we must ; 
; i - mus : 
: 88 HT: defined both OW ane PLIT ay Ae test the assumption about storage format. (We have. : 
; 2208 18 Sassume ((table_top-table_base) 
4 - i LEQ 511); . 
: 210 H Sassume ((table-base LSSA-table) AND (table LSSA table_top)); ‘ 
; 2211 189 2 REGISTER : 
; 221 ; 
: \¢ 139 ob: ! Input pointer ‘ 
: 4 198 ‘ ! Output pointer e 
; 19 i inp: : 
i 3316 19% 3 op = “oute: ; 
; 2218 1 : 
. $519 138 pecr count FROM .len-1 TO 0 ! Convert the controls . 
: $557 199 REGISTER : 
: § s' oot : eer acta ' Local character variable ; 
; 4 g g: C, BYTE); ! Pointer to string for expansion : 
: 3206 ; iP*hor (Ci char EOL 05 | Get next character, : 
3 : cter ° 
: 8 : ; THEN AND (. format EQL form_nonulls)) ! and we are sk pping nalts - 
: BEGIN F 
; 2230 ; 
> 2231 09 2 eyeth ne = ,table C.char]) NEQ 0 ! See if the substitution offset is zero : 
: BEGIN : 
; g " 5 REGISTER ; 
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OP BOO OVOVVOVOV VOU VOU VO VV UV VU UV OU OU ME bee elle ad w ood 
SO—- MMMNMNMVUHMVHVHVHHKHHVHHHNHHHHWHWHHWHHNNMNNNNN U> >> >>> Aa =—>>>> 
q<44444eede eee ee eeeeeeeeeeeetececcoo ao Qoom wih a Seeee 
rr ee ee ee ee | eeeeeeeeeeeeeee sees ee “a. . ws == 

coco <zo 4 

on aor a 

or “7 ** «8 © © © #8 © © ©8 © 88 68 Ff . *- ee of of © of 7* «ff «ff oe f q pe 

'': Net OvOwu OTM MIE ZOO SOS VY DS 3x rnr<eOva w w ww < 
AQ KB VIO VII II IOI VB VVI VV VV VVVOVOVOOUTIITt 4 = 7. = 
Mee deed ddd dee deeded deeded eee eee 2 <= ago a 
mw *#*8# © ee eee#eesve esoeseeeekerseee#8seeeee#eeees. a <a oO 
#e aaaaaadcaaaaaadaadcadcadcadadadcadcaaada - Qa ee “ 
oe ee eee 2 2h Oe SSSR eee a voce o@mw 4 S3s 
“<<< ct MOMOOCVVVAC CO OWWWWWwe ee OoOoncrene WM Mota Q-— 
DUPE TULA OOOOOOOOOO Oowowo or ose ooo 
OOOGCOOOOOCOCOOOOOOOCOOOCOOOOOooOOoOSoOSoSoS Coooce ocoocKe ooo oe ooo 
SOOOOOOOOCOOOCOOSGOOOCOOCOOOOOOOOOOOSOOOoOO OOOO ooo Co ooo 
te J a ooo 
NII OW Ou owoo ~ OS 
OOOOOOOOOOCOOOOOCOOOOOOCOOCOOOOOOOO OMWw, Ore ctw ouwo 
ao omo 
nn mW, 


DO UFPUNDD DOOCWPN TF OOMMM AFPUNGDODPIIN AOD MO oma 
PPS SF TANNA FUN STUNT PB TNT ATR OPM.” ~@mw 


DUAN INST TTF OVO MP PMUA TPE. QOSAOMTMAS-O OO vero 
PVF FLL FF LAF LUT APPIN FUNT F  OOPM ~oOuw 


PATEK K—MIMTN PIMe  CUPOO OOO MM MOW As oo 
MII MMNns OTT ST TOUT OT OO 


8 83 55 


60 


64 
AC AB AG AO 9C 98 94 90 of af 84 8 
E6 E2 DE DA D6 D2 CE CB C7? CS BF 


33 30 2D 2A 
68 


itt 


; Routine Size: 


67 


83 bytes, 


01 


Routine Base: 


if 
0000' ; f st 
oon cf 4 23: 
ae a 6 

f 

: A it 
wn i ses 
asco BF BA GORGE 


SCODES + OE2C 


2 
3op71 982 99:58:98 | ONT Pb hes Bath Saas 


BEN. COUNT 
P)+, CHAR 
FORMAT, #3 
ABLECCHAR], STRING 
TABLE BA BASECSTRING], STRING 


Tete sce 
LEN. Ne) LEN, (OP) 


LEN 
#62. (OP) 

CHAR, (OP) 

OP 

COUNT, 1$ 
OUTPUT_BUFF, R7 
#°M<R6,R7,RB,RI> 


Be Se Se He Se Be Se Se Se Ge Se Ge Se Ge Fe Fe Fe Se Ge Se Ge Se 


2 
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ROUTINE srh$put_output(length, buffer) : NOVALUE JSB_PUTOUT = 


<u 
QP 
‘Zz 


| Functional description 
Routine to write records to the output file 


i 
i 
; Input parameters 
Length = Length of string to output 


buffer = address of string to output 
= 

BEGIN 

ROUTINE put (len, buf) : NOVALUE = 

BEGIN 


DFERIS SEVERN S 


DAEAED®RDE PA & BB BEE BE PAIN III onon 


FUN O ODNAVE WN 0 ODNOAU EWN OCONOAUE WIN OWOO~N 


mew 


; 1 H 
; 1 : 
3 1 3 
3 1 ; 
3 1 3 
; 1 ; 
3 1 3 
3 1 ; 
3 1 ; 
; 1 ; 
; 2.3 ; 
3 LOCAL ; 
3 re status; : 
: % outrab Crab$w_rsz) = .Llen; ; 
; 4! outrab Crab$l_rbf] = .buf; : 
: 5578 4 IF NOT (status = $PUT(RAB = outrab)) 3 
3 2274 3 THEN 3 
3; 2e75 4 BEGIN ; 
; ze 4 ; 
; 227 & + : 
; 2278 4 ! if the error is due to a record which was too long, shorten the : 
; 2279 4 ! request and try again 3 
: $58 Bay ; 
: ag 2 (.max_rec GTR 80) ! we aren't pretty short already : 
; 5 a. (.status EQL RMS$_RSZ) ! error is rec too big (get from tape) ; 
; 2287 ; 
; ; 5 23 § (.status EQL RMS$_SYS) ! terminal maxbuf error : 
3 $0 e 8 (,outrabCrab$l_stv] EQL SS$_EXQUOTA) ; 
; 3 63 ) ; 
> 229% 49 N ; 
; 2295 7 BEG] ’ 
3 3 7 max_rec = (.len * 90) / 100; ! try with rec 90% as long 3 
: 2e9 74 ut (,max_rec, .buf); ; 
3 38 if Bruns : 
; 90 77 4 ELSE ; 
3 1 7 | on file_error (srh$_writeerr, .status, outfab, .outrabCrab$l_stv)); : 


L Bit pw itch otatiatics 
§ stat_totput = .stat_totput+!; ! Count this Line 


2 
04000 1er$ep=1986 99:55:95 EOViLS2°SaeSseantnzo30s1 P08 (oh) 


: oe ae 


-EXTRN SYS$PUT 


000C PUT «WORD Save R2,R3 3 2241 

5 00 ' CF OE MOVAB MAX_REC. R3 : 

' CF MOVAB OUTRAB+{2 Re : 
16 =A AC 8B f MOVW LEN, OUTRAB+34 + 2247 
1c OA ie p 1 MOVL BUF, OUTRAB+40 : 2348 
F4 OAD OOF 1 PUSHAB ¥ + 2250 

000000006 00 : i 1 CALLS 8 protSsayt ; 
00000050 = &F D} : cHPL MAX_REC, #80 + 2259 
000186A4 —&F pt 0 CPL STATUS, #100004 + 2262 
0001C10Cc BF 56 D4 09 5 cAPL TATUS, #114956 + 2265 
1¢ 35 if 60 £ CMPL QUTRAB#12, #28 + 2267 
51 04 AC 0000005A se cS $043 1$ AUEL 3 LEN, R1 : 2273 
63 51 dooooage BF C7 O04¢ : DIV. #106, R1, MAX_REC : aa 

es DD 0037 PUSHL MAX_REC ; 

A3soAF 02 FB 00059 CALLS #2, PUT : 
04 0005 RET : 3272 
6 pp 005E 2$: PUSHL  OUTRAB+12 : 2278 

AG Ad OF 006 PUSHAB OUTFAB : 

DD 0006 PUSHL STATUS ; 

00D710D4 &F DD 0006 PUSHL  #14094548 ; 

FOB? CF 4 FB 0068 CALLS #4, FILE ERROR F 
OcFC C3 06 00070 38: INCL STAT_TOTPUT ; 2283 
04 00074 RE + 2287 


; Routine Size: 117 bytes, Routine Base: $CODE$S + OE7F 


out_file_open 


91 BEGIN 
9 LOCAL 
9 len, ' Local length 
ptr, ' Pointer to qurrent part of buffer. 
printed; ! Flag that first part printed 


, ben = Length: ! Copy inputs to local 
r = .buffer; 
printed = false; 


So 
one ae 
zs" 
mm 
ze 


MEW —OOONOulwnr— 
oO 
wm 


ROPOMOROPNY 2 Os 


0 : 
1 ' Print the record. We must allow for a segmented put if the 
2 ! size of the record is larger than the MRS of the output file. 


2 
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1 ~3007 138% 96:30:08 Lor bo8bRe SEARCH.B32; ° (25 
. 1 
; i : DO 
3 5 4 BEGIN 
3 $ 4 IF .printed 
; 4 THE 
; 4 put (11, UPLIT BYTE(' (continued)')); 
3 § 4 ut (MIN(. len, .max_rec), .ptr); 
; 4 en = .len = .max_rec; 
; 4 11 4 tr = .ptr + .max_rec; 
: 5 1 ? rinted = true; 
: 14 UNTIL .len LEQ 0; 
; 3 15 END; 
; 16 END; 

-PSECT S$PLIT$,NOWRT,NOEXE,2 
29 64 65 75 6€ 69 74 6E€ 6F 63 28 002B4 P.AHF: .ASCII \(continued)\ 3 


-PSECT $CODES,NOWRT,2 


54 DD 00000 SRHSPUT_OUTPUT: 
PUSHL R4 3 2227 
A 0000' CF £9 0000 BLBC  OUT_FILE_OPEN, 4$ + 2289 
4 DO 0000 MOVL BUFFER, PTR + 2298 
D4 OO000A CLRL PRINTED + 2299 
0B 9 990¢ 1$: LBC —s PRINTED, 2$ ; 230 
0000' CF SF O000F PUSHAB P.AHF ; 230 
dD 13 PUSHL #11 ; 
FF71 CF FB 0001 CALLS #2, PUT ; 
D 1A 28 PUSHL PTR : 2309 
50 0000' cr D 1C MOVL  MAX_REC, RO ; 
2 dD 1 PUSHL LEN 3 
50 D 3 CMPL (SP), RO ; 
3 BLEQ 3$ 3 
6E D MOVL RO, (SP) ; 
FFSB OCF F 3$ CALLS #2. PUT ; 
2 9000" CF C SUBL2 MAX_REC, LEN + 2310 
4 cB € ADDL2 MAX"REC, PTR > 2311 
53 1 0 A MOVL #1, PRINTED + 2312 
2 p D TSTL LEN + 2314 
CB 4 0003F BGTR ; 
BA 00041 4$ POPR #*M<R4> + 2316 
05 00043 RSB ; 


; Routine Size: 68 bytes, Routine Base: $CODE$ + OEF4 


<“ 


=< 


ozrnm 


ow 


SEARCH 1$-$0-1984 02:20:08 yaret] OL ta482, v4. 0-748 


H 530) $3iz 1 END 
3; 2542 18 0 ELUDOM 

-EXTRN LIBSSIGNAL, LIBSSTOP 
H PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS ~DZRO 4940 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS-C 1821 NOVEC, WRT. RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 SPLITS. 703 NOVEC,NOWRT, RD ;NOEXE ,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 3896 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Beeps RS ey erie ee eels Syabols ocoseooe Pages Processing 
$ File Total Loaded Percent Mapped ime 
: _$255$DUA28: CSYSLIBISTARLET.L32;1 9776 108 1 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SEARCH/OBJ=OBJ$:SEARCH MSRC$:SEARCH/UPDATE=(ENH$: SEARCH) 


Size: 3896 code + 7464 data bytes 
Run Time 1:19, $ 
Elapsed. Time: iF 29. 

Lines/CPU Min: 1368" 


Lexenes/CPU-Rin: 23398 
eenecy Used: 451 pages 
Compilation Complete 
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